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SECTION I 


INTRODUCTION 


AN OVERVIEW OF THE COMPILER 


The PL/1 compiler translates a source program written in the 
PL/1 language into an equivalent Multics standard object segment. 
This compiler represents an implementation of the PL/1 language 
as defined in the PL/1 Language Manual (Order No. AG94). The 
entire compiler is written in the same language, and therefore, 
is self reproduceable. 


The compiler is organized into five phases: Syntactic 
Translation, Declaration Processing, Semantic Translation, 
Optimization, and Code Generation. Each phase is a set of 
procedures grouped together to perform a major logical function. 


The internal representation of the program being compiled 
serves as the interface between phases of the compiler. To have 
a thorough understanding of how the compiler works requires an in 
depth knowledge of the internal representation scheme adopted by 
this implementation. 
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THE COMMAND PROGRAM 


This pll command program is the interface between the user 
and the compiler. It is also the interface between the compiler 
and the Multics operating system. All calls to Multics system 
subroutines are made in this command program. 
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NAME : pll 


Function: 


1. It initializes the various static variables of the compiler. 


2. It processes all the options to the command: 


check 
list 
time 
source 
brief 
symbols 
assembly 
severity 
cpdcls 
debug 
optimize 
table 
brief table 
parse 
profile 
link 


3. It gets the pointer to the source segment. 


4. It makes the object segment 
required. 


5. It calls the multi-segment-file manager 


requires more than one segment. 


6. It sets up a default handler. 


segment if 


if the listing 


7. It sets up a cleanup handler, in case a compiler should abort 


in the middle of a compilation. 


8. It invokes the various phases of the compiler: 


parse 
semantic translator 
optimizer 

code generator 
prepare symbol _map_ 


Entry: 
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order number 


pl1, v2pll 


Usage: 
pll pathname -control_argl ... -control_argn 

1. pathname is the path name of a PL/1 source 
segment to be translated by the 
PL/1 compiler. If the source 
segment does not have a suffix of 
.pl1, then one is assumed. 

2. control_argi can be chosen from a list of 
options. Refer to the Multics 
Programmers' Manual ‘pll' command 
for details. 

Entry: 


pligtimes, v2pl1$times 


This entry, when called after a compilation, will print out 
a table giving the time, the number of page faults, and the 
amount of storage used by each phase of the compiler. The phases 
include setup, parse, semantics, optimizer, code generator, and 
the lister. 


Usage: 


plig¢times 


Entry: 


pll$epilogue, v2pll$epilogue 
pli$clean_up, v2pl1l$clean_up 


These entries are called after an aborted compilation, so 
that cleanup jobs will be done. 
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Usage: 


pll$epilogue 
pll$clean_up 


Entry: 


pll$blast, v2pll$blast 


This entry is called to turn on the blast message, to turn 
off the blast message, or to rewrite the blast message. 


If the blast message is on, the blast message will be given 


at the start of the first compilation in the process. 


Usage: 


pli$blast -on 
pll$blast -off 


pli$blast -set blast _message 


Internal Procedures: 


none 


External Variables: 


cg static $debug 

cg static $stop id 

cg static $support 
error_table $badopt 

error table $entlong 
error_table $noarg 

error table $translation failed 
error_table $zero length seg 
pll_blast_$blast_message 
pll_blast_$blast_on 

pll_ blast $blast_ time 
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pl1_stat_$abort_label 
pll_stat_$brief error mode 
pll_stat_$char_pos 
pl1_stat_$compiler_name 
pll_stat_$constant_ list 
pll_stat_$debug semant 
pll_stat_$dummy_ block 
pll_stat_$error_messages 
pll_stat_$error width 
pll_stat_$generate symtab 
pll_stat_$greatest_ severity 
pll_stat_$index 
pll_stat_$line count 
pll_stat_$list_ptr 
pll_stat_$listing on 
pll_stat_$max_list_size 
pll_stat_$max_node type 
pll_stat_$node_name 
pll_stat_$node size 
pll_stat_$node_uses 
pll_stat_$ok list 
pl1_stat_$optimize 
pll_stat_$options 
pl1_stat_$pathname 
pl1_stat_$phase 
pll_stat_$print_cp dcl 
pll_stat_$profile length 
pll_stat_$root 
pl1_stat_$seg_name 
pll_stat_$severity plateau 
pl1_stat_$source_index 
pll_stat_$source ptr 
pll_ stat $stop id 
pll_stat_$table 
pll_stat_$temporary_ list 
pll_stat_$tree vec index 
pll_stat_$user_id 
pll_stat_$validate proc 
tree $ 

v2pl1$ 

xeq_ tree $ 


Internal Static Variables: 


none 


Programs Called: 
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bindec 

clock_ 

code gen_ 

code gen $return _bit count 
com _err_ 

cu_$arg_ ptr 

cv_dec_ 

date time_ 

db 

default_handler_ $set 
error _$finish 

establish cleanup proc _ 
expand path_ 
get_group id_ 

get_wdir_ 
hcs_$get_max_length_ seg 
hcs_$get_usage values 
hes $initiate count 

hcs $make_ ptr 
hcs_$truncate_seg 

hmu 

ioa_ 

ioa_ $nnl 

ios $changemode 
lex$scan_token_ table 
lex$terminate source 
msf_ manager $get_ptr 
optimizer 

parse 
pll_print$non_varying 
pll_print$non_ varying nl 
pll_print$varying nl 
pll_ signal catcher 
pll_symbol print 
prepare symbol _map_ 
prepare symbol table 
record command usage $enter 
record command usage $exit 
revert cleanup proc_ 
semantic_translator 
tree _manager$init 

tree _manager$truncate 
tssi $clean_up file 
tssi_ $clean_up segment 
tssi $finish file 

tssi $finish segment 
tssi $get_file 

tssi $get_segment 
v2pll$epilogue 
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Include Files used: 


none 


Errors Diagnosed: 


Errors diagnosed by this program are not errors in the 
source program, but rather errors found in the use of the command 
pll. 
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SECTION II 


INTERNAL REPRESENTATION 


OVERVIEW 


The internal representation of the program being compiled serves 
as the interface between phases of the compiler. The internal 
representation is organized into a modified tree structure (the 
program tree) consisting of nodes which represent the component 
parts of the program, such as blocks, statements, operators, 
operands, and declarations. Each node may be logically connected 
to any number of other nodes by the use of pointers. 


Each source program block is represented in the program tree by a 
block node which has two lists connected to it: a statement list 
and a declaration list. The elements of the declaration list are 
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symbol table nodes representing declarations of identifiers 
within that block. The elements of the statement list are nodes 
representing the source statements of that block. Each statement 
node contains the root of a computation tree which represents the 
action to be performed by that statement. This computation tree 
consists of operator nodes and reference nodes. 


The operators of the internal representation are n-operand 
operators whose meaning closely parallels that of the PL/I source 
operators. References are represented by reference nodes which 
point to a declaration of some variable or constant. Each 
reference also serves as the root of a computation tree which 
describes the computations necessary to locate the item at run 
time. 


Except for some fields of the reference node used only by _ the 
code generator, this internal representation is machine 
independent in that it does not reflect the instruction set, the 
addressing properties, or the register arrangement of the target 
machine (645 or 6180). All phases of the compiler, except the 
code generator, are also machine independent since they deal only 
with this machine independent internal representation. Figure 
2-1 shows the internal representation of a simple program. 


BLOCK STRUCTURE 


Each begin block, procedure, or on-unit is represented by a block 
node. The entire tree is found via the external static pointer 
"root". The outside or external environment of the outermost 
procedure is represented by a block node whose’ type is 
"root_block" and which contains the block which represents the 
external procedure. See Figure 2-2. 


Format: 
dcl 1 block based aligned, 

2 node type bit(9) unaligned, 

2 source id structure unaligned, 
3 file number bit(8), 
3 line_number bit(14), 
3 statement_number bit(5), 

2 father ptr unaligned, 
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node_type 


NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN 


brother 

son 
declaration 
end declaration 
default 

end default 
context 
prologue 
end_prologue 
main 

end_ main 
return_values 
return_count 
plio_ps 
plio_fa 
plio_ffsb 
plio_ssl 
plio_fab2 
block_type 
prefix 

like attribute 
no_ stack 
get_data 

flush _at_call 
processed 

skip 

number 

free temps 
temp list 
entry list 

o ands 
max_display steps 
display vector 
number _of entries 
level 
last_auto_loc 
symbol_block 
entry_info 
enter 

3 start 

3 end 

leave 

3 start 

3 end 


has a value of 
block node. 
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ptr 
ptr 
ptr 
ptr 
ptr 
ptr 
ptr 
ptr 
ptr 
ptr 
ptr 
ptr 
ptr 
ptr 
ptr 


unaligned, 
unaligned, 
unaligned, 
unaligned, 
unaligned, 
unaligned, 
unaligned, 
unaligned, 
unaligned, 
unaligned, 
unaligned, 
unaligned, 
unaligned, 
unaligned, 
unaligned, 
ptr unaligned, 
ptr unaligned, 
ptr unaligned, 
bit(9) unaligned, 
bit(12) unaligned, 
bit(1) unaligned, 
bit(1) unaligned, 
bit(1) unaligned, 
bit(1) unaligned, 
bit(1) unaligned, 
bit(1) unaligned, 


fixed bin(8) unaligned, 


dimension(3) ptr, 
ptr, 

ptr, 

ptr, 

fixed(17), 
fixed(17), 
fixed(17), 
fixed(17), 
fixed(17), 
fixed(17), 
fixed(18), 

structure unaligned, 
fixed(17), 
fixed(17), 

structure unaligned, 
fixed(17), 
fixed(17); 


"000000001"b which identifies this 


as 


AN54 


source id - (treated as a triple of numbers) 


file number - @ for main source file, and 
indexes include files in 
sequential order of inclusion. 
Any include file may be 
included more than once; each 
occurrence will have a distinct 
file number. 


Line number - line number within source file 
(see file_number) of line on 
which statement begins. 


statement_number - 1 + number of statements that 
finish ahead of the current 
statement on the line on which 
the current statement begins. 


father - points to the immediately containing block. This 
pointer is null for the root block. 


brother - points to the next block at this nesting level that has 
the same father. 


son - points to the first contained block. 


declaration - points to the first symbol or label node declared 
in this block. 


end declaration - points to the last symbol or label node 
declared in this block. 


default - points to a uni-directional chain of default nodes each 
representing a default statement in this block. The 
default nodes are used only’ during declaration 
processing and are of no interest to the code 
generator. 
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end_ default - points to the last default node in this block. 


context - used by the parse and declaration processor and is 
ignored by the code generator. 


prologue - points to the first statement node of the prologue 
statement sequence. 


end prologue - points to the last statement node of the prologue 
statement sequence. 


Main - points to the first statement node of the main statement 
sequence. 


end main - points to the last statement node of the ~ main 
statement sequence. 


return values - points to a chain of list nodes each of which 
points to a symbol node representing a unique kind of 
value returned by the return statements of this 
procedure. 


return_count - if this procedure returns more than one kind of 
value, this points to a declaration of an integer 
declared in the block which is used to determine what 
kind of value is to be returned. This information as 
well as the list of return values is not used by _ the 
code generator; it is created and used by the semantic 
translator. 


plio ps - if non-null, points to the symbol-node for PS, the 
storage block used in I/0 statements. If non-null, the 
code generator will compile code in the block prologue 
to set PS.stack_frame_p, stack.psp, and, if there is to 
be a runtime symbol table, PS.ST top _p and 
PS.ST_ block _p. 


plio fa - if non-null, points to the symbol-node for’ the 
format-area, used by  edit-directed  get- and 
put-statements. If non-null, the code generator will 
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compile code in the’ block’ prologue to_- set 
PS.format_area_p to its address. 


plio ffsb - if non-null, points to the symbol-node for "fake 
FSB", a pseudo-file-control-block used for get- and 
put-statements with string option. 


plio_ ssl - if non-null, points to the symbol-node for _ ss list, 
storage used for the put data statement. If non-null, 
the code generator will cause its address to be stored 
in PS.ss_list_p during block prologue. 


plio_fab2 - points to the symbol-node for FAB2, storage used by 
the open statement to record file options, linesize, 
and pagesize. 


block_type - defines the kind of block this node represents. The 
codes used in this field are given in the appendix. 


prefix - the condition prefix of the block. See "Statement 
Nodes" on page 2- for a definition of each bit. 


like attribute - indicates that some declaration occurs in this 
block with a like attribute. 


no stack - this block shares its stack frame with its containing 
or brother block and can be called with a non-recursive 
call. 


get_data - used by get-data to indicate that a full runtime 
symbol table is required for this block. 


flush_at_call - indicates that some son of this block is assigned 
to an external static entry variable. Hence, any call 
may invoke it and change any automatic variable in this 
block. 


processed - used and set by the code generator only. 
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skip - a filler. 


number - this field is used to sequentially number all blocks. 
it is used by the part of the semantic translator which 
determines the set of blocks requiring stack frames. 


free temps - points to lists of free temporaries. (used and set 
only by the code generator). 


temp list - points to a list of allocated temporaries. (set and 
used only by the code generator). 


entry list - points to a list of all entry statements in this 
block. 


o and_s - used by the code generator to keep track of offset and 
size expressions. 


max_display steps - indicates the maximum number of environment 
pointers needed to reference automatic variables or 
label constants, etc., declared in outer blocks. 


display vector - used by the code generator to remember the 
location of the environment (display) pointers. (not 
used or set outside the code generator). 


number _of_ entries - the number of procedure and entry statements 
in this block. 


level - set and used only by the code generator. "level" is the 
nesting level of this block in terms of stack-frame 
nesting depth. The "level" of a quick block is’ thus 
equal to the "level" of the block in which its 
automatic storage has been placed. The level of the 
root block is 0. The level of the external procedure 
block is 1. 


last_auto_loc - used by the storage allocator as a _ location 
counter for allocating automatic storage. 
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symbol block - holds the offset within the run-time symbol table 
of the runtime block node that corresponds to this 
block; used and set only by the code generator. 


entry_info - used and set only by the code generator. 


enter - used and set only by the code generator. 


leave - used and set only by the code generator. 


REPRESENTATION OF DECLARATIONS 


Two data structures are used to represent declarations: the 
token table and the symbol table. The token table contains an 
entry for each unique token (operator, delimiter, identifier, 
constant) in the source program. It does not reflect the block 
structure of the program and can be considered a_ vector. The 
symbol table consists of lists of symbol and label nodes attached 
to block nodes. Each block node contains a uni-directional list 
of symbol and label nodes which represent the declarations made 
in that block. 


Token Table 


Each token table entry represents a unique token found in the 
source program or generated by the compiler. 


Format: 

dcl 1 token based aligned, 
2 node type bit(9) unaligned, 
2 type bit(9) unaligned, 
2 loc bit(18) unaligned, 
2 declaration ptr unaligned, 
2 next ptr unaligned, 
2 size fixed(9), 
2 string char(n refer(token.size) ); 
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node type - has a value of "000000101"b which identifies this 
node as a token table entry. 


type - has one of the values listed in the appendix. This value 
describes the kind of token represented by this node. 


loc - Position in runtime symbol table of this token. Used and 
set by the code generator only. 


declaration - points to a uni-directional chain of symbol and 
label nodes which describe the declarations of this 
token. This pointer is null for tokens other than 
identifiers. 


next - points to the next entry in the token table. 


size - is the length of the token, "token.string". 


string - is the character string representation of the token. In 
the case of a character-string token, "string" is the 
string value. In the case of a bit-string token, 
"string" is the character-string obtained from the bit 
string by replacing "1"b with "1", "O"b with "0", and 
adding a final "b". 


Symbol Table 


The symbol table consists of lists of symbol and label nodes 
attached to block nodes. Each block node contains a pointer to a 
uni-directional chain of symbol and label nodes, each of which 
represents a declaration in the block. 


LABEL NODES 


A label node represents the declaration of a statement label 
constant. It may be a scalar or array. Entry labels are 
represented by symbol nodes, not label nodes. Format statements 
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have labels, but these are removed from the statement by 
io statement_parse and changed into symbols with the initial 
pointer pointing at the format statement. The fields of the 
label node generally match the corresponding fields of the symbol 
node. 


Format: 
dcl 1 label based aligned, 
2 node type bit(9) unaligned, 
2 source id structure unaligned, 
3 file number bit(8), 
3 line_number bit(14), 
3 statement_number bit(5), 
2 location fixed(17) unaligned, 
2 allocated bit(1) unaligned, 
2 dcl_type bit(3) unaligned, 
2 reserved bit(29) unaligned, 
2 array bit(1) unaligned, 
2 used_as_ format bit(1) unaligned, 
2 used_in_ goto bit(1) unaligned, 
2 symbol table bit(18) unaligned, 
2 low_bound fixed(17) unaligned, 
2 high bound fixed(17) unaligned, 
2 block_node ptr unaligned, 
2 token ptr unaligned, 
2 next ptr unaligned, 
2 multi_use ptr unaligned, 
2 cross reference ptr unaligned, 
2 statement ptr unaligned; 


node type - has a value of "Q00001111"b which identifies this 
node as a label node. 


source id - describes the statement on which this label appeared. 
For label arrays it identifies the first statement on 
which one of the array elements appeared. (For further 
detail, see description in "Block Structure" on page 
2-9.) 


location - the address assigned to this label. 
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allocated - indicates that the storage allocator has assigned an 
actual location in the object program for this label. 


dcl_type - describes the manner in which the label was declared. 
The declare types include file listed in the appendix 
defines the values used in this field. 


array - identifies this as a constant label array. 


used_as format - used by FORTRAN to distinguish labels and format 
identifiers. 


used in goto - used by FORTRAN to distinguish labels and _ format 
identifiers. 


symbol _table - used and set by the code generator only. Records 
the location in the runtime symbol table of the runtime 
label node corresponding to this label. 


low _bound - the observed lower bound of the array. 


high bound - the observed high bound of the array. 


block_node - points to the block node which owns this 
declaration. 


token - points to the token table entry for this identifier. 


next - points to the next symbol or label node in this block. 


multi_use - points to the next declaration of this identifier (in 
any block). 


cross reference - points to a uni-directional chain of cross 
reference nodes, each of which contains a statement-id 
of a statement which references this label or label 
array. 
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statement - 


SYMBOL NODES 


A symbol 
constant (other than label constants). 
are 
constants, 


values 


statement on 
arrays this points to the first statement on which 


points to the 


statement 


which this label 


node representing the 
appeared. For label 
one 


of the array elements appeared as a label prefix. 


temporaries 
storage class and type attributes. 


Format: 


dcl 
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node 


represents the 
represented in a 

entry names, file 

are represented by 


symbol 
node _ type 
source _id 

3 file number 
3 line_number 
3 statement_number 
location 
allocated 
dcl_type 
reserved 

pix 

3 pic fixed 

3 pic float 

3 pic _char 

3 pic_scale 

3 pic_size 
level 

boundary 

size units 
scale 

runtime 
runtime offset 
block_node 
token 

next 

multi_use 
cross references 
initial 


2-19 


declaration 
All scalar and 
uniform manner. 
names, 
symbol 


of a 


condition 
nodes 


names, 


based aligned, 
bit(9) unaligned, 
structure unaligned, 
bit(8), 

bit(14), 

bit(5), 

fixed(17) unaligned, 
bit(1) unaligned, 
bit(3) unaligned, 
bit(6) unaligned, 
structure unaligned, 
bit(1) unaligned, 
bit(1) unaligned, 
bit(1) unaligned, 
fixed(7) unaligned, 
fixed(7) unaligned, 
fixed(8) unaligned, 
fixed(3) unaligned, 
fixed(3) unaligned, 
fixed(7) unaligned, 
bit(18) unaligned, 
bit(18) unaligned, 
ptr unaligned, 

ptr unaligned, 

ptr unaligned, 

ptr unaligned, 

ptr unaligned, 

ptr unaligned, 


variable or 
aggregate 
Variables, 


and 


with the proper 


AN54 


NNNNNNNNNNNNNNN 
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array 
descriptor 
equivalence 
reference 
general 
father 
brother 

son 

word size 
bit size 
dcl_size 
symtab size 
c_word size 
c bit size 
c_dcl_size 


attributes 

3 data_type 
structure 
fixed 
Float 

bit 

char 

ptr 
offset 
area 
label 
entry 
file 

arg descriptor 
storage block 
lock 
condition 
format 
builtin 
generic 
picture 


ARARAARARARARRARAARA 


3 misc attributes 
dimensioned 
initialed 
aligned 
unaligned 
connected 
precision 
varying 

local 


ALARAARAA 
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ptr unaligned, 
ptr unaligned, 
ptr unaligned, 
ptr unaligned, 
ptr unaligned, 
ptr unaligned, 
ptr unaligned, 
ptr unaligned, 
ptr unaligned, 
ptr unaligned, 
ptr unaligned, 
ptr unaligned, 
fixed(24), 

fixed(24), 

fixed(24), 


structure aligned, 
structure unaligned, 
bit(1) , 
bit(1), 
bit(1), 
bit(1), 
bit(1), 
bit(1), 
bit(1), 
bit(1), 
bit(1), 
bit(1), 
bit(1), 
bit(1), 
bit(1), 
bit(1), 
bit(1), 
bit(1), 
bit(1), 
bit(1), 
bit(1), 


structure unaligned, 
bit(1), 
bit(1), 
bit(1), 
bit(1), 
bit(1), 
bit(1), 
bit(1), 
bit(1), 


AN54 


decimal 
binary 
real 
complex 
variable 
reducible 
irreducible 
returns 
position 
internal 
external 
like 
member 


ARRAR ARR AR RAR 


3 storage class 
auto 

based 
static 
controlled 
defined 
parameter 
param desc 
constant 
temporary 
return_value 


ARAB RAR RAR 


3 file_attributes 
print 

input 
output 
update 
stream 
reserved 1 
record 
sequential 
direct 
interactive 
reserved 2 
forwards 
backwards 
keyed 
reserved 3 
environment 


ARARRARRARARRARA 


3 compiler developed 
4 abnormal 


DRAFT: SUBJECT TO CHANGE 2-21 


bit(1), 
bit(1), 
bit(1), 
bit(1), 
bit(1), 
bit(1), 
bit(1), 
bit(1), 
bit(1), 
bit(1), 
bit(1), 
bit(1), 
bit(1), 


structure unaligned, 
bit(1), 
bit(1), 
bit(1), 
bit(1), 
bit(1), 
bit(1), 
bit(1), 
bit(1), 
bit(1), 
bit(1), 


structure unaligned, 
bit(1), 
bit(1), 
bit(1), 
bit(1), 
bit(1), 
bit(1), 
bit(1), 
bit(1), 
bit(1), 
bit(1), 
bit(1), 
bit(1), 
bit(1), 
bit(1), 
bit(1), 
bit(1), 


structure unaligned, 
bit(1), 


AN54 


4 packed bit(1), 
4 passed_as arg bit(1), 
4 allocate bit(1), 
4 set bit(1), 
4 exp_extents bit(1), 
4 refer_extents bit(1), 
4 star_extents bit(1), 
4 variable arg list bit(1), 
4 non_varying bit(1), 
4 isub bit(1), 
4 put_in_symtab bit(1), 
4 contiguous bit(1), 
4 put_data bit(1), 
4 overlayed bit(1), 
4 error bit(1), 
4 symtab processed bit(1); 
node _ type - has a value of "000000110"b which identifies this as 
a symbol node. 
source id - identifies the statement which declared this value. 
(For further detail, see description in "Block 
Structure" on page 2-9.) 
location - the address given to this item by the — storage 
allocator. If this item is a parameter, "location" is 
the position of the parameter in first entry statement 
in which it appears (i.e., first entry statement 
processed by declare). (See "Parameter" on page 2-). 


If this item is controlled, location is the offset of a 
identify the current 


3-pointer 
generation of the variable. 


2-). 


structure se 


rving to 
(See " 


allocated - indicates that storage has been 


variable. 


more than one parameter position ( 
page 2-). 


dcl_type - indicates how the declaration 


was 


Controlled" on 


allocated for 


see "Parameter" 


established. 


page 


this 


Set in the case of a parameter appearing in 


on 


The 


values of this field are defined in the "declare types" 
include file listed in the appendix. 
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pix - the fields of pix record facts about a picture deduced from 
inspection of the picture. 


pic_fixed - set if the picture is a numeric picture, 
not floating. 


pic float - set if the picture is numeric, floating. 


pic_char - set if the picture is a character picture. 


pic. scale - the scale of the (fixed) associated 
variable: the number of digits after the "v" 
in the picture, if one appears, (or zero), 
less the value of the picture's scale factor, 
if any. If the symbol is a generic 
arg selector for an arithmetic argument, 
pic scale is used to hold the upper limit of 
the scale. 


pic size - the precision for a numeric picture, the 
length for a character picture. If the 
symbol is a generic arg selector for an 
arithmetic argument, pic size is used to hold 
the upper limit of the precision. 


level - the level number adjusted so that the level number of a 
member is one greater than its containing structure. 
Non-structure level-one variables have a_ level number 
of zero. 


boundary - the storage boundary required by this item. The valid 
codes are given in the appendix. 


size_units - used and set by the code generator only. used to 
keep track of the units in which the item's size is 
expressed. 


scale - the arithmetic scale factor. If the symbol is a generic 
arg selector for an arithmetic argument, scale is used 
to hold the lower limit of the scale. 
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runtime - used and set by the code generator only. Holds offset 
within runtime symbol table of the runtime symbol node 
corresponding to this symbol node. 


runtime offset - NOT USED. 


block_node - points to the block_node that owns this declaration. 


token - points to the token table entry for this identifier. 


next - points to the next symbol or label node in this block. 


multi_use - if this declaration is a literal constant, this 
points to the next literal constant in the program. If 
this declaration is a temporary this points to the next 
temporary in the program. If this is a variable or 
named constant this points to another declaration of 
the same name. 


cross reference - points to a uni-directional chain of cross 
reference nodes each of which contains the source-id of 
a statement which references this declaration. (Items 
without names have a null value for this pointer.) 


initial - if this item is an internal entry constant this points 
to the entry statement on which the entry name 
appeared. If this item is an initialized variable this 
points to a list node or tree of list nodes which 
represents the initial attribute. If this item is a 
literal constant this points to the binary 
representation of the constant's value. If this is a 
level-1 "defined" variable with position attribute this 
points to the position expression template. In the 
case of a format constant, "initial" points to the 
format statement node. (See X.X.X.X.X) 


array - points to an array node which describes the number of 
dimensions, the bounds, and the multipliers of this 
array. See "Array and Bound Nodes" on page 2-. 
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descriptor - points to a reference node which points to a symbol 
node whose type is arg descriptor and whose storage 
class is automatic, constant, controlled, temporary, or 
param desc. If it is a constant it will appear in the 
constant list, otherwise it will be in the same block 
as the declaration which it describes. The semantic 
translator creates declarations of descriptors when it 
processes function references and calls. It generates 
assignment statements to assign the proper values to 
the descriptor - in the prologue, in the allocate 
statement for a controlled variable, or immediately 
before the statement containing the call. If this is 
an array, the descriptor describes the entire array and 
the element descriptor is found in the array node. 


equivalence - points to the parse of the reference given in the 
defined attribute or to the base constant of a group of 
equivalenced constants. (See "Storage Classes" on page 
2-.) 


reference - points to a reference node which describes how to 


access this value at run-time. For arrays this 
reference node describes how to access the entire 
array. 


general - A general purpose pointer whose meaning depends on 
other attributes. 


1. offset data - points to the area reference given in the 
offset attribute. 


2. pictured data - points to the token table entry 
representing the picture. 


3. entry - points to a uni-directional chain of list nodes 
each of which points to a symbol node describing a 
parameter of the entry. 


4. generic - points to a uni-directional chain of list 
nodes each of which points to a_ symbol node 
describing an entry descriptor, and to an _ entry 
reference. 


5. structure - points to the reference given with the like 
attribute. 
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6. file constant - points to the declaration of the file 
block used at run-time. 


father - points to the symbol node of the immediately containing 
structure. 


brother - points to the symbol node of the next structure member 
at this level. 


son - points to the first member of this structure (null for 
non-structures). 


word size - points to an expression giving the size of this item 
in words (rounded if necessary). If the size is 
constant this field is null. If this is a member of a 
packed structure neither this field nor its constant 
counterpart have any meaning, although they may contain 
non-empty values. 


bit size - points to an expression giving the size of this item 
in bits. If the size is constant this field is null. 
(Both bit and word size of dimensioned data are the 
total array size, not the element size). 


dcl_size - points to an expression giving the declared size of 


areas or the declared length of strings. If the 
data-type is entry this field points to the symbol node 
that describes the return value of the entry. In the 


case of a controlled variable, dcl_size points to an 
expression which references the runtime descriptor of 
the controlled variable. 


symtab size - in the case of controlled variables, set by 
declare descriptor to the original (parsed only) 
contents of dcl_size if this is not constant. Points 


to an expression giving the declared size of the item. 
This expression is obtained by semantically translating 
the dcl_size expression. This pointer is null if a 
runtime symbol table entry is not required. 
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c_ word size - constant size in words (rounded if necessary). 


c bit _size - constant size in bits. 


c_dcl_size - constant area size, string length, or arithmetic 
precision. If the symbol is a generic arg selector for 
an arithmetic argument, c_dcl_size is used to hold the 
lower limit of the arithmetic precision. In the case 
of a pictured item, the length of the pictured string. 


The bits of the symbol node are generally self 
explanatory and are derived from the 
declare statement and default rules of 
the language. The  compiler-created 
attributes are described below: 


abnormal - the value of this variable may change without any 
explicit indication in this program. A variable is 
abnormal if: 


1. it is based, parameter, external, defined or the 
base of a defined variable; 

2. it is used in an addr built-in function or appears 
in the string option of a put statement, an into 
or set option of a read statement, or a set option 
of a locate statement; 


3. it is a member of an abnormal structure or is a 
structure containing abnormal values; 


4. it is passed as an argument by reference and is 
static or controlled. 


packed - this value is: 


1. An unaligned aggregate of packed data; 


2. unaligned arithmetic data; 
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3. unaligned non-varying string data; 


4. unaligned pointer data. 


passed as arg - set in semantics, tested by the code generator; 
indicates that spare bits may have been written into by 
the procedure called. Also set for an argument of the 
unspec pseudo-variable. See padded ref in "Reference 
Nodes" on page 2-. 


allocate - indicates that the item has been referenced; indicates 
that any required allocation of space may not be 
ommitted; inspected during preparation of the listing. 


set - this item appears on the left side of an assignment, in a 
get list, a set() option, a _ keyto() option, the 
string() option of a _ put-statement, suitably as an 
argument to a pseudovariable operator, in an in() 
option, a read into() statement, or as an argument 
passed by reference. Defined items, and items which 
are the bases of defined items, are abnormal (see 
above) but do not inherit each other's set attribute. 


exp extents - this item has non-constant extents. 


refer_extents - this item has refer extents or belongs to a 
structure which has refer extents. 


star_extents - this item has asterisk extents. 


variable arg list - represents the source program construction 
“options(variable)". 


non_varying - indicates that the item is a nonvarying character 
or bit string. 


isub - indicates that the item is isub-defined. 
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put_in_symtab - this declaration must be placed in 


symbol table. 


contiguous - used and set only by the code generator. 
of 


a string array that 


boundary. 


put_data - NOT USED 


overlayed - indicates that the item is a string 


the run-time 


Indicates 


element crosses a word 


overlayed item. 


error - would flag an inconsistent declaration: NOT USED. 


symtab_ processed - flag used by prepare symbol table. 


that the processing 


semantic 


Indicates 
needed to generate the 


runtime symbol table entry has already been done. 


ARRAY AND BOUND NODES 


The array node and its associated chain of bound pairs 
and provide pre-computed 
processor 


describe 
multipliers 


the 


elements of an 
for use by the 


semantic translator. 


Array Nodes 


Format: 


dcl 
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array 
node _ type 

reserved 
number_of_dimensions 
own_number_of_ dimensions 
element_boundary 

size units 

offset_units 

interleaved 


2-29 


array 
subscript 


serve to 


module of the 


based aligned, 
bit(9) unaligned, 
bit(34) unaligned, 
fixed(7) unaligned, 
fixed(7) unaligned, 
fixed(3) unaligned, 
fixed(3) unaligned, 
fixed(3) unaligned, 
bit(1) unaligned, 


AN54 


2 c_element_size fixed(24), 

2 c_element_size bits fixed(24), 

2 c_virtual_ origin fixed(24), 

2 element_size ptr unaligned, 
2 element_size bits ptr unaligned, 
2 virtual_origin ptr unaligned, 
2 symtab virtual origin ptr unaligned, 
2 symtab element _size ptr unaligned, 
2 bounds ptr unaligned, 
2 element_descriptor ptr unaligned; 


node type - has a value of "Q00001000"b which identifies this 
node as an array node. 


number of dimensions - the number of declared dimensions, plus 
all dimensions inherited from containing structures. 


own _number_of dimensions - The number of dimensions declared on 
this item. 


element_boundary - the storage boundary required by the elements 
of this array. 


size units - used and set by the code generator only. The units 
in which the element_size is expressed. See 
array.element_size and symbol.size units. 


offset_units - indicates the units of the multipliers. The 
permitted values are defined by the boundary include 
file listed in the appendix. Note: descriptor 


multipliers are always in bits if the item is packed, 
words if it is not. 


interleaved - This array is interleaved. 
c_element_size - constant element size in words (rounded if 


necessary). See "size units" above. 
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c_element_size bits - constant element size in bits. 


c virtual origin - if "virtual_origin" is null, the constant 
virtual origin: a virtual origin is the value 
(constant or variable) that must be added to the sum of 
the products of an item's subscripts with its 
multipliers to yield a correct offset relative to the 
beginning of the containing level-1 aggregate. 


element_size - points to an expression giving the element size in 
words. 


element_size bits - points to an expression giving the element 
size in bits. 


virtual_origin - if non-null, points to an expression for the 
virtual origin (see c_virtual_origin). 


symtab virtual_origin - points to an expression giving the 
virtual origin of the array. This expression is 
obtained by semantic translation of the 


"virtual_origin" expression. This pointer is null if a 
runtime symbol table entry is not required. 


symtab element size - see "“symtab virtual origin": replace 
"“virtual_origin" by "element_size". 


bounds - points to a uni-directional chain of bounds nodes_ each 
of which gives a_ lower bound, an upper bound, and a 
multiplier. These multipliers are measured in the 
units indicated by offset_units. The descriptor bounds 
are measured in bits if the item is packed, otherwise 
they are measured in words. 


element_descriptor - points to a symbol node whose type is 
arg descriptor. That descriptor describes the elements 
of this array and is used when one of those elements is 
passed aS an argument to any entry which requires 
descriptors. 
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Bound Nodes 


Format: 

dcl 1 bound based aligned, 
2 node_type bit(9), 
2 c_lower fixed(24), 
2 c_upper fixed(24), 
2 c_multiplier fixed(24), 
2 c_desc multiplier fixed(24), 
2 lower ptr unaligned, 
2 upper ptr unaligned, 
2 multiplier ptr unaligned, 
2 desc multiplier ptr unaligned, 
2 symtab_ lower ptr unaligned, 
2 symtab_ upper ptr unaligned, 
2 symtab multiplier ptr unaligned, 
2 next ptr unaligned; 


node type - has a value of "Q00001001"b which identifies this 
node as a bound node. 


c_lower - constant lower bound if "lower" is null. Used in 
bounds checking, to compute the range (upper-tlower+1) 
of this dimension, and to compute multipliers for 
contained bound nodes. 


c_upper - upper bound if "upper" is null. See "c_lower". 


c multiplier - multiplier for computing offset from subscript if 
"multiplier" is null. The multiplier for a bound with 
N contained bounds is the N+1-fold product of the 
ranges (upper-lower+1) of those bounds with the element 
size of the terminal, unsubscripted element. 


c_desc_ multiplier - constant descriptor multiplier if 
"desc multiplier" is null. The multipliers in array 
descriptors, desc multiplier's, serve the same purpose 
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as the more generally used multipliers, but follow 
different rules due to the necessity to continue the 
practice of EPL. The units in which desc multiplier 
is expressed is bits in the case of a packed array and 
words in the case of an unpacked array. 


lower - points to lower-bound expression tree if non-null. See 
"c_lower". In the case of a controlled array, points 
to an expression which references the runtime 
descriptor of the controlled variable. 


upper - points to upper-bound expression tree if non-null. See 
"Cc _upper". 


multiplier - points to multiplier expression tree if non-null. 
See "c multiplier". 


desc multiplier - points to descriptor-multiplier expression tree 
if non-null. See "c desc multiplier". 


symtab lower - set by declare descriptor for controlled arrays: 
contains the original (parsed only) tree for 
bound.lower if the lower bound is not constant. 
Otherwise used and set by the code generator only. 
points to an expression giving the lower bound of this 
dimension of the array. The expression is obtained by 
semantic translation of the "lower" expression. This 
pointer will be null if a runtime symbol table entry is 
not required. 


symtab_upper - set by declare descriptor in the case_ of 
controlled arrays: contains the original (parsed only) 
bound.upper if the upper bound is not constant. See 


"symtab lower"; replace "lower" with "upper". 


symtab multiplier - set by get_array size in the case _ of 
controlled arrays: contains the original (parsed only) 
bound.multiplier if the multiplier is not constant. 
See '"symtab lower"; replace "lower" with "multiplier". 
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next - if non-null, points to the immediately containing bound 


node. Note well that the chain of bound nodes, like 
most lists relating to subscripts, is kept in reversed 
order. Thus, "next" for a sub-array points to the 


bound node for the containing array. 


INITIAL ATTRIBUTES 


The initial attribute of PL/I is a list of initial items each 
with a repetition factor or implied repetition factor of one. 
Each initial item is either an expression, an asterisk, or 
another initial list. 


The parse of an initial attribute is a uni-directional chain of 
list nodes each representing a single initial item. The nesting 
of the initial attribute is reflected in the parse as shown in 
Figure 2-5. 


The repetition factor is an expression. The initial value is 
either an expression, a _ token table entry for an asterisk, or 
another chain of list nodes representing the parse of the nested 
initial list. 


STORAGE CLASSES 


The storage mechanism used to contain a value at run-time is 
defined by the storage class bits of the symbol node. 


Automatic 


If the size (extents) of the value are variable the prologue will 
contain a statement explicitly allocating the value using an 
"allot_auto" operator. This operator returns a pointer value 
which is used to qualify all references to the variable. The 
code generator does not allocate such variables and it assumes 
that all necessary pointer qualification has been done by the 
semantic translator. 
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Constant size automatic values are allocated by the storage 
allocator module of the code generator. It only allocates this 
value if the "allocate" bit is on and the cross references field 
in the symbol node is non-null (indicating one or more references 
to the variable). Having allocated the value, it sets the 
"allocated" bit and fills in the "location" field of the symbol 
node. The location field contains the stack offset of the value. 
The code generator will add this stack offset to any address it 
prepares for the value. 


The code generator always creates accessing code with the proper 


block qualification (or display) pointers. The block 
qualification is not explicitly described in the internal 
representation. But, the block node contains a_ number, 


max display steps, which is the maximum number of display 
(environment) pointers needed by the block; it is obtained from 
the level numbers of the block in which the reference occurs and 
the block in which the variable is declared. 


Based 


The code generator does not allocate based values. It computes 
their addresses by evaluating the offset and qualifier 
expressions found in the reference node used to access the value. 


Static 


Internal static values are allocated by the storage allocator 
module of the code generator. If the set bit is on, the value is 
placed in internal static storage (the linkage section) and the 
"allocated" bit is turned on. The location field is set to 
contain the offset of the value within the linkage section. This 
offset is added to any address developed by the code generator. 


If the value is not set but is referenced (the "allocate" bit is 
on) and does not have an initial attribute the storage allocator 
issues a diagnostic warning the user that the value is used but 
not set. If the value is used, not set, and is initialized the 
value has its storage class changed to constant and is allocated 
within the text of the object program by the code generator. 
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Internal static values are initialized by the storage allocator 
and do not result in the creation of initialization code in the 
object program. 


External static values result in the generation of a link 
(symbolic reference) in the linkage section of the object 
program. The storage allocator creates the link and sets the 
"allocated" bit on. The "location" field is set to contain the 
offset of this link. All addresses developed by the code 
generator are effectively indirect references through the link. 


If the name of the variable has no $, the link contains 
information used by the linker which allocates and initializes 
the variable in stat _ the first time it is referenced in the 
process. The initial value is compiled into the text of the 
object program. If the name contains a $, the link also includes 
initialization or dynamic allocation information, but the 
variable is allocated in the segment "name$". If the segment 
does not exist, it is created in the process directory. 


Controlled 


Controlled storage is explicitly allocated by the program at 
runtime. For internal controlled storage, the code generator 
allocates a 3-pointer block in internal static whose offset is 
contained in symbol.location. The first pointer points to the 
most recent generation of storage for the variable, the second 
points to the most recent generation of storage for the 
descriptor if the variable has expression extents, and the third 
points to a 3-pointer block representing the previous generation 
of storage. For external controlled variables, symbol.location 
is the offset of a link to a similar 3-pointer block in external 
static. 


Defined 


No storage is allocated for the value. The code generator 
develops addresses for defined references by combining the offset 
of the defined reference with the offset of the base reference. 
The qualifier field of the defined reference node points to the 
base-reference. The locator qualification of the base is used as 
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the locator qualification of the defined reference. 


Parameter 


Two methods are used to access a parameter and its descriptor: A 
reference to a parameter is always effectively qualified by a 
param ptr operator. If a parameter appears in the same position 
within all entries in which it appears, the param ptr operator 
will appear explicitly in each reference to it. Otherwise, the 
parameter reference is qualified by a unique automatic pointer 
whose value is set (via a suitable param ptr operator) in the 
entry sequence of each entry in which the parameter appears. 


(In the parameter's symbol node, the "location" field gives the 
position of the parameter within the first entry statement 
processed by declare. If declare finds that the parameter 
appears in any other position in any other entry statement, 
declare sets the "allocated" bit in the parameter's symbol. This 
all occurs in the processing of declarations in the _ block 
containing the entry labels, that is, the block father to the 
block containing the entry statements. 


Thus, when declare processes the parameters themselves, it sets 
the "qualifier" field to a unique automatic pointer if 
"allocated" is set, or to a param ptr expression if it is not. 
When the entry statements themselves are processed, the 
"allocated" bit may thus be inspected and suitable preparatory 
code inserted, if required. Refer to "Call, Save, and Return 
Operators" on page 2-. 


Parameter-Descriptor 


This storage class is used for parameter descriptors and 
functions exactly like the parameter storage class. The compiler 
may create additional declarations of this storage class for 
entry(), returns(), and generic() attributes. Such declarations 
have no meaning after semantic translation and have no effect on 
the code generator since it never finds any references to them. 
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Constants 


Named constants such as entry and file constants are represented 
by symbol nodes whose storage class is constant and whose type 
bits are file or entry. They are not part of the pooling 
mechanism used for literal constants. 


Literal constants may result from source program constants or may 
be compiler-created. They have compiler generated unique names 
and refer to the token table entry for their name just like other 
declarations. Each declaration of a constant consists of a 
symbol node and associated reference node. All such declarations 
are threaded on a_ uni-directional chain beginning with the 
external static pointer "constant_list", and are linked together 
through the "multi_use" pointer of the symbol node. Each symbol 
node contains attributes which describe a value. The binary 
internal representation of the value is referenced by the 
"initial" field of the symbol node. 


The chain of literal constant declarations is maintained in order 
of increasing size of the constant's value. More than one 
declaration may refer to the same value. Such groups of 
constants are said to be equivalenced. All declarations which 
have been equivalenced to another have their equivalence pointer 
set to refer to the symbol node of the constant to which they are 
equivalenced. A constant which is the base of other equivalenced 
constants is itself never equivalenced. The allocate bit of the 
base constant is on, and the allocate bits of all other 
equivalenced constants is off. See Figure 2-3. 


Temporary Values 


The compiler has need of a means to represent values which need 
not, and do not, correspond to generations of storage at run 
time. Temporaries fill this need. When a temporary generation 
of storage, as distinct from a temporary value, is required, an 
automatic variable must be declared. 


The result of each operator is represented by a declaration of a 
temporary value. Each declaration consists of a symbol node and 
associated reference node. The symbol node contains all the 
attributes of the value and has a storage class of "temporary" or 
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"return_value". 


All such temporaries are threaded on a_ uni-directional chain 
beginning with the external static pointer "temporary list" and 
are linked together through the "“multi_use" pointer of the 
symbol nodes. The procedure "declare temporary" does its best to 
pool temporary declarations to minimize the amount of compiler 
storage needed to represent these declarations. 


Values which are never referenced except at the moment of 
evaluation in the program have a storage class of "temporary", 
and the "shared" bit is on in the reference node for the 
temporary. A shared temporary is used solely to indicate the 
output attributes of an operator. They are allocated and _ freed 
by the code generator at its discretion. 


Values which must be maintained for an extended period of time 
because they are referenced elsewhere within the same region of 
the program have a storage class of "temporary" and a zero 
"shared" bit. The "ref count" field of the reference node 
indicates the number of references to this value. 


Values returned by functions whose return attribute contains 
asterisks (returns(char(*))) are represented by declarations 
whose storage class is "return_value". These temporaries are 
allocated by the called program but exist in the caller's stack. 
They continue to exist until a statement having a "free temps" 
attribute is executed by the caller. 


REPRESENTATION OF EXECUTABLE STATEMENTS 


The executable statements of a block are represented by two 
bi-directional chains of statement nodes attached to the block 
node. One chain represents the prologue statements generated by 
the compiler, the other represents the statements written by the 
programmer or generated from statements written by the 
programmer. 
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Statement Nodes 


Each statement is represented by a statement node. 


Format: 
dcl 1 statement based aligned, 

2 node type bit(9) unaligned, 

2 source id structure unaligned, 
3 file number bit(8), 
3 line_number bit(14), 
3 statement_number bit(5), 

2 next ptr unaligned, 

2 back ptr unaligned, 

2 root ptr unaligned, 

2 labels ptr unaligned, 

2 reference list ptr unaligned, 

2 state list ptr unaligned, 

2 reference count fixed(17) unaligned, 

2 ref_count_copy fixed(17) unaligned, 

2 object structure unaligned, 
3 start fixed(17), 
3 finish fixed(17), 

2 source structure unaligned, 
3 segment fixed(11), 
3 start fixed(23), 
3 length fixed(11), 

2 prefix bit(12) unaligned, 

2 optimized bit(1) unaligned, 

2 free temps bit(1) unaligned, 

2 LHS in RHS bit(1) unaligned, 

2 statement type bit(9) unaligned, 

2 processed bit(1) unaligned, 

2 put_in profile bit(1) unaligned, 

2 generated bit(1) unaligned; 


node type - has a value of "000000001"b which identifies this as 
a statement node. 


source id - identifies the original statement in the source text. 
Compiler-generated statements will carry the source id 
of the original statement from which they’ were 


DRAFT: SUBJECT TO CHANGE 2-40 AN54 


generated, the field will be zero if no original 
exists. (For further detail, see description in "Block 
Structure" on page 2-9.) 


next - points to the next statement node in this block. 


back - points to the previous statement node in this block. 


root - points to the computation tree which represents the 
operators and operands of this statement. 


labels - points to a uni-directional chain of list nodes, each of 
which points to a label node representing the 
declaration of a label that appeared on this statement. 
Subscripted labels are represented by a reference node 
which points to a label node. The offset field of the 
reference node indicates which element of the label 
array appeared as a label on this statement. 


reference list - used by the optimizer to collect a list of 
values which are known’ to be available when control 
reaches this statement. 


state list - used by the code generator. When the code generator 
processes a jump operator which references a_ statement 
not yet compiled by the code generator, it attaches a 
copy of the current machine state record to the 
state list of the statement node referenced by the 
jump. If all references to a statement have been 
processed, the machine state available at the statement 
is the intersection of all of the machine states on the 
state list. 


reference count - contains a count of all references to any of 
the labels that appeared in the label prefix of this 
statement. A labelled statement with no other 
references to its label has a count of one. 


ref_count_copy - a copy of reference count used by the optimizer 
and reduced by it to zero. 
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object - used by the code generator and the listing procedure to 
record the starting and finishing locations of the 
object code generated for the statement. 


source - used by offset testing programs to locate the source 
text of this statement. procedure that produces the 
object code listing) 


prefix - describes the condition prefix found on this source 
statement or inherited from the block. A value of "1"b 
means the condition is enabled. 


Bit Meaning 

1 underflow 

2 overflow 

3 zerodivide 

4 fixedoverflow 
5 conversion 

6 size 

7 subscriptrange 
8 stringrange 

9 stringsize 
10-12 unused 


optimized - this bit is set on by the optimizer when it first 
attaches a list of available values to the reference 
list. 


free temps - when the code generator encounters a statement node 
with this attribute it releases all variable-size 
temporaries and return values. 


LHS in RHS - used in semantics to warn that portions of an 
aggregate target of an assignment statement are 
referenced in computing the right hand side and may not 
be changed until the whole right hand side has_ been 
computed. 


statement_type - identifies the kind of statement. Its value is 
one of the values defined by the "statement_types" 
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include file listed in the appendix. 


processed - set by semantic_translator to indicate that the 
statement has already been processed, so avoiding an 
erroneous re-processing. It may be noted that 
completely processed statements are created during the 
semantic translation, by do semantics and io semantics 
for example, and the newly created statements may be 
inserted after the statement currently being processed. 


put_in profile - set for the first statement among those which 
realize a given source language statement. If the 
profile option is in effect, the code generator will 
compile special profile code for each marked statement. 


generated - this bit is set on if the statement was generated by 
the compiler. 


Reference Nodes 


All values (except scalar label constants) are accessed via a 
reference node. This node contains the offset, length, and other 
attributes which may be unique for each reference. 


The declaration processor constructs a reference node for each 
symbol node. This reference node contains the offset and locator 
qualifier necessary to locate the value at run-time. Each 
subscripted reference or substr reference results in a_ unique 
offset and a unique reference. Each locator qualified reference 
results in a unique reference node with its own qualifier 
expression. References without subscripts or locator 
qualification are represented by unique instances of _ the 
reference node originaly created by the declaration processor. 


If the "shared" bit of a reference node is on, it indicates to 
the code generator and optimizer that this reference node appears 
as a node within more than one computation tree, and that each 
occurrence of this node may represent a reference to a unique 
value. If the "shared" bit is off, each reference to the node 
must represent a reference to the same value, and the "ref count" 
of the reference node must indicate how many times this reference 
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node is 


referenced in 


the tree. 


The optimizer transforms the 


representation of the program to maximize the number of reference 
nodes whose shared bit is zero. 


Format: 


dcl 
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reference 
node _ type 
array_ref 
varying_ref 
shared 
put_data_ sw 
processed 
units 

ref count 
c_ offset 
c_length 
symbol 
qualifier 
offset 
length 
subscript_list 


address 

base 
offset 

op 
no_address 
inhibit 
ext_base 


3 address in 
4b 
4 storage 
3 value_in 
a 
q 
aq 
string _aq 
complex_aq 
decimal _aq 
b 
storage 
indicators 
x 


ARAR RAR RAR 


2-44 


based aligned, 
bit(9) unaligned, 
bit(1) unaligned, 
bit(1) unaligned, 
bit(1) unaligned, 
bit(1) unaligned, 
bit(1) unaligned, 
fixed(3) unaligned, 
fixed(17) unaligned, 
fixed(24), 
fixed(24), 

ptr unaligned, 

ptr unaligned, 

ptr unaligned, 

ptr unaligned, 

ptr unaligned, 


structure unaligned, 
bit(3), 

bit(15), 

bit(9), 

bit(1), 

bit(1), 

bit(1), 

bit(6), 

structure unaligned, 
structure, 
dimension(0:7) bit(1), 
bit(1), 

structure, 

bit(1), 

bit(1), 

bit(1), 

bit(1), 

bit(1), 

bit(1), 

dimension(0:7) bit(1), 
bit(1), 

bit(1), 

dimension(0:7) bit(1), 


AN54 


3 skip bit(3), 


2 data_type fixed(5) unaligned, 
2 bits structure unaligned, 

3 padded ref bit(1), 

3 aligned ref bit(1), 

3 long_ref bit(1), 

3 forward ref bit(1), 

3 ic_ref bit(1), 

3 temp_ref bit(1), 

3 defined ref bit(1), 

3 evaluated bit(1), 

3 allocate bit(1), 

3 allocated bit(1), 

3 abnormal bit(1), 

3 even bit(1), 

3 perm_address bit(1), 

3 aggregate bit(1), 

3 hit_zero bit(1), 

3 dont_save bit(1), 

3 reserved bit(2), 
2 relocation bit(12) unaligned, 
2 last_usage bit(18) unaligned, 
2 store _ins bit(18) unaligned; 


node _ type - has a value of "000000100"b which identifies this as 
a reference node. 


array_ref - indicates that this is an array reference, not an 
array element reference. 


varying ref - indicates that this is a reference to a _ varying 


string. (This is unique because substr(x,i,j) = y 
results in a non-varying reference to x even when x is 
varying). 


shared - indicates a reference node used (potentially) in many 
parts of the program tree, refering to a generation of 
storage rather than to a value. The reference node 
that hangs from the symbol node has the shared bit set 
if there are no locator qualifier, variable length, or 
subscript fields needed to complete the reference. 
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References to such items are usually made by pointing 
to the symbol node's shared reference. If a reference 
node appears in the executable tree and has qualifier, 
length, or offset expressions, then it does not have 
the shared bit on; for a change to any such expression 
effectively alters the reference, and the compiler does 
not test for such changes. 


put_data_sw - set by expression semantics when pre-processing the 


argument of a put_data_trans operator. It causes the 
subscripter to create a list of the subscripts of the 
scalar items and attach it at reference.subscript list. 
This list is later attached to the put data trans 
operator and, ultimately, transmitted to the runtime 
I/O machinery. 


processed - set by expression semantics to indicate that the 
reference has been fully processed, so to avoid an 
erroneous re-processing. 

units - indicates the units of the offset (bits, bytes, 
half_words, words). 

ref_count - indicates that the reference is to a value which is 


referenced ref count times (not necessarily in the 
current statement) without possibility of changing. 
(The ref count is the number of pointers in the tree 
that point to this reference except in the case of a 
reference which is the first operand of an operator 
which sets its first operand; in this case, ref count 
is the total number of pointers in the tree that point 
either to the reference or to the operator, the pointer 
from the operator to the reference not being counted 
for this purpose.) Values referenced under reference 
nodes with ref_count>0 may be kept in convenient 
registers by the code generator rather than, or as well 
as, in storage. The code generator reduces’ the 
ref count after each use of the node. The optimizer 
tries to replace shared references with unshared 
references, aS a means of dealing with common 
sub-expressions. In the case of a temporary, reduction 
of the ref count to zero means that the storage or 
register holding the temporary may be reused. 
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c_offset - the constant offset. This field is meaningful whether 
or not the offset is variable. 


c_length - the constant current length of a string value if 
reference.length is null. 


symbol - points to the symbol or label node which represents the 
declaration of this value. 


qualifier - points to the locator expression used to qualify this 
reference. Parse uses reference.qualifier to point to 
a locator qualifier if one appears. In the case of a 
defined item, qualifier points to a reference to the 


base item. 
offset - points to the offset expression. If the offset is 
entirely constant this field is null. Parse uses 


reference.offset to point to a list node containing the 
subscript expression trees, if subscripts appear; the 
list is in reverse order. Parse does not distinguish 
subscripts and arguments. 


length - points to the length expression giving the current 
length of the string value. If the length is constant 
then this field is null. Parse uses’ reference.length 
to point to a reference node for the structure 
qualifier if any. 


subscript_list - io semantics uses this to point to a list node 
holding the subscripts of this reference; for put_data. 
The subscript expressions are listed in (forward) 
order. The size of this list is used by the 
subscripter to set the size of the block of storage 
(block.plio ssl) into which the code generator will 
store the evaluated subscripts; subscripter sets that 
size, ssl_size, as max( k+l , ssl_size ), where k is 
the number of subscripts for the reference currently 
being processed. 


padded ref - indicates that the last word of the value is not 
shared with another value. Permits the code generator 
to assume, in most circumstances, that the spare bits 
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abnormal 


of the last word of storage touched by this item are 
zero. However, see passed as arg in "Symbol Nodes" on 
page 2-19. 


- set if the symbol has the abnormal bit set or if it is 
a reference to a non-local automatic variable that is 
passed as an argument by reference. 


NOTE: All other fields are set and used 
only by the code generator. 
List Nodes 
The list node is a general purpose node used to chain together 


other types of nodes. It is used to: 


Format: 


dcl 


chain together the label nodes or label reference nodes 
which represent the label prefix. 


chain together parameter descriptors of an _ entry() 
attribute. 


chain together the members of a generic() attribute. 
to represent the initial attribute. 


to represent argument lists and descriptor lists of 
arg_list operators. 


1 list based aligned, 

2 node type bit(9) unaligned, 

2 reserved bit(12) unaligned, 

2 number fixed(14) unaligned, 

2 element dimension(n refer(list.number) ) 


ptr unaligned; 
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node _ type - has a value of "000001011"b which identifies the node 
as a list node. 


number - number of operands in this node. 


element - pointers to the operands. 


When list nodes are used to form uni-directional chains, the 
first "element" pointer is usually used to point to the next 
link in the chain. 


Operator Nodes 


Each operation to be performed by the object program is 
represented by an operator node. All source language operators 
and all compiler generated operators have the same form and are 
subjected to the same optimizations. 


dcl 1 operator based aligned, 

2 node type bit(9) unaligned, 

2 op code bit(9) unaligned, 

2 shared bit(1) unaligned, 

2 processed bit(1) unaligned, 

2 optimized bit(1) unaligned, 

2 number fixed(14) unaligned, 

2 operand dimension(n refer(operator.number) ) 


ptr unaligned; 
node type - has a value of "000000011"b which identifies this as 
an operator node. 
op_code - is one of the op codes listed in the appendix. 
shared - indicates that this operator appears as a_ subexpression 


of another computation elsewhere in this program. The 
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optimizer uses this bit to keep itself from getting 
into trouble. 


processed - set by semantic translator to prevent erroneous 
re-processing of this operator tree. 


optimized - this computation has been previously performed and it 
does not need to be re-evaluated. Operand one contains 
the correct value. 


number - the number of operands 


operand - pointers to the operands 


Operators 


The operators of the internal representation closely resemble the 
operators of the PL/I language. These operators are listed in 
the appendix and can be classified into distinct groups of 
operators having similar function. The following sections 
describe each class of operators. 


ARITHMETIC OPERATORS 


Arithmetic operands are: 


1. binary fixed (real| complex) 

2. binary float (real|complex) 

3. decimal (fixed| float) (real| complex) 
The code generator performs all necessary conversions between 
mode for cases 1 and 2. It performs conversions of mode and type 


for case 3. These conversions are done by the code generator 
because it can exploit particular hardware features. 
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Operands may be any precision and scale, and may be packed or 
unpacked. The desired output is defined by the attributes of 
operand one. 


STRING OPERATORS 


The operands of string operators are scalar string values. They 
are either a all bit-strings or all character-strings. The 
boolean operators only allow bit-string operands while the 
concatenation operator allows either. The reference given as 
operand one describes the desired result. 


ASSIGNMENT OPERATORS 


The assign operator allows operands of any’ data type. 
Conversions are permitted between any combination of arithmetic 
and string data, between offset and pointer, between pointer and 
offset, between packed and unpacked data, and it allows 
assignment of pointer to file, and integer to arg descriptor, 
arg descriptor to integer, label constant to integer, and label 
constant to pointer. 


Assign size ck allows assignments between any combination of 
arithmetic and string data. Code is generated to check whether 
the receiving variable has sufficient precision or string length 
to hold the value to be assigned; if not, the size or stringsize 
condition is signaled. 


The assign zero operator requires that its operand be _ fixed 
binary aligned with a precision of <36 and a scale factor of 
zero. 


The copy words operator copies the storage of operand two into 
the storage of operand one. The number of words to be copied is 
given by operand three. The operator is used to implement 
assignment of PL/I arrays or structures. It is generated only 
for non-packed aggregates of identical type and aggregation. 


DRAFT: SUBJECT TO CHANGE 2-51 AN54 


The copy string operator copies the storage of operand two into 
the storage of operand one. The number of bits to be copied is 
given by operand three. The operator is used to implement 
assignment of PL/I arrays and structures. It is generated only 
for packed aggregates of identical type and aggregation. 


The make desc operator is used to create a basic argument 
descriptor value. Operand two is a bit string value representing 
the left part of an argument descriptor, and operand three is an 
integer expression representing the size value of the basic 
argument descriptor. The operator combines operands two and 
three to produce a basic argument descriptor value. 


block_assign - This operator has n operands. Operands 2. through 
n are integer expressions to be evaluated and stored in operand 
one. Operand one is a temporary or variable whose data type is 
block storage and whose size is sufficient to contain the integer 
values. The block_assign operator is used to process the 
subscript list of an array element or a put data statement. 


RELATIONAL OPERATORS 


Operand one of the relational operators is a bit string value of 
length one. The other two operands are either: both arithmetic 
(see "Arithmetic Operators" on page 2-50), character-string, 
bit-string, pointer, offset, label, entry, or file expressions. 


TRANSFER OPERATORS 


Operand one of a transfer operator is a label valued expression. 
The second operand of the jump true and jump false operators is a 
bit-string value. The second and third operands of other 
conditional transfer operators obey the rules specified for the 
operands of relational operators. 


CALL, SAVE, AND RETURN OPERATORS 
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The std_arg list operator results in the creation of a Multics 


Standard Argument List in automatic storage. Operand' one 
represents the argument list, and is a temporary whose storage 
class is  block_storage. During argument list creation all 


argument expressions are evaluated. 


Operand two is a list node containing a vector of pointers to the 
argument expressions. The last argument of function references 
is the return value and is a "return value", "temporary" or a 
variable reference. "Return value" storage class means that the 
called procedure will allocate space for the return value. (Se 
"Temporary Values" on page 2-38.) 


Operand three is a list node containing a vector of pointers to 
references to the argument descriptors. If no descriptors are 
needed operand three is null. 


The std_call operator results in a Multics Standard Call. 
Operand one is null if the call is not a function reference; 
otherwise it points to the reference node used to access the 
return value. Operand two is an entry expression giving the 
entry to be invoked. Operand three is null if there are no 
arguments or return value; otherwise it is an argument list 
operator which prepared the argument list. 


The std entry operator results in the creation of entry 
descriptive information and a Multics Standard entry sequence in 
the object program. The entry descriptive information includes 
the number of parameters and a descriptor for each parameter. 


The ex_prologue operator causes the prologue to be evaluated. 


The allot_auto operator makes permanent allocations in the stack. 
It is a pointer valued operator whose second operand is an 
integer expression specifying the number of words to be 
allocated. The storage is released by the return or non-local go 
to operator. 


The "param ptr" and "param_desc ptr" are used to access the 
argument pointer and argument descriptor pointer which references 
the kth argument of the entry used to invoke the procedure whose 
block node is referenced by operand three. They are used to 
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assign these pointers to the automatic pointers used to reference 
the parameter or parameter descriptor. See "Parameter" on page 
2-37. 


The std_return operator returns via the Multics Standard Return. 
It has no arguments - an assignment statement has already 
assigned the return value to the last parameter. 


The return_value operator returns via the Multics standard 
return, but requires the evaluation, allocation, and assignment 
of the return value to the last parameter. The descriptor of the 
return value has already been set. See Figure 2-4. 


OFFSET OPERATORS 


Offset operators are used to compute the addresses of values at 
run-time. Their output operands are binary integers and their 
input operands are usually binary integer expressions. The 
"desc size" operator has an arg descriptor as operand two, and 
the "bit pointer" operator has a pointer value as operand two. 


BUILT-IN FUNCTION OPERATORS 


The built-in function operators are a miscellaneous group of 
operators which support PL/I built-in functions. The types of 
their arguments are defined by the _ language. All argument 
conversions required by the language have been done and are not 
implied by the operator. 


INPUT/OUTPUT OPERATORS 


The input/output operators may be divided into four classes. 


First are the operators get file, get_string, put_ file, 
put_string, read file, write file, locate file, delete file, 
rewrite file, open file, and close file. These are used by the 
parse to pass parsed input/output statements to the semantic 
phase. Each of these operators has operands enough to compass 
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the references and expressions occurring in the options of the 
statement; each has one further operand, the last, which contains 
a bit(36) constant which encodes the options which have appeared 
and also the statement type. The operands of these operators are 
processed, and considerably rearranged, by the semantics before 
the code generation phase and, with the exception of the 
Operators open file and close file which are retained without 
Operands, these operators are not passed on to the code 
generator. 


Second are the transmission operators: get_list_trans, 
get_edit_trans, get_data_trans, put _list_trans, put edit trans, 
and put _data_ trans. The get_data_trans operator is presented to 
the code generator with a single operand, a join of the items 
appearing in the list of the get data statement. The code 
generator will transform this join into a constant list of 
runtime-symbol-table offsets which will serve to identify the 
allowable runtime references. The put_data_trans operator has 
two operands, a list of subscript expressions and the reference 
with which they are associated. The code generator will see that 
the list of subscripts, as well as the address and 
runtime-symbol-table offset of the reference, are made available 
at runtime. Each of the other four transmission operators takes 
a descriptor-valued expression and the reference to which it 
corresponds; the code generator will see that the descriptor and 
the address of the item referenced are available at runtime. 


Third are the special operators: record io, stream prep, and 
terminate trans. The record io operator takes one or _ two 
operands and the stream_prep operator takes two operands. In 
both cases the first operand is a _ bit(36) constant which is 
transmitted to the runtime mechanisms and defines the work to be 
done. In both cases, the second operand, if present, is a_ label 
(the label of a null statement following the other statements 
which realize the I/0 statement) to which control may _ be 
transferred at runtime if the execution of the statement cannot 
be continued. The terminate trans operator is always compiled, 
after the list items, if any, in a get or put statement and has 
no operands; it is compiled by the code generator into the 
invocation of terminating code at runtime. 


Fourth is the set of format operators. The first two operands of 
a format operator are standard: the first identifies the next 
format operator (in the case of the operator l_parn, the operator 
identified is that following the associated r_parn); and the 
second is an integer expression for the repitition count. The 
third and other operands depend on the operator. For l_parn, the 
third operand identifies the first format operator of the 
parenthesised format list. In the r_format operator, the third 
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operand is a reference to a format value. In the c format, the 
third and fourth operands identify the component real format 
operators. In all other cases, the third and subsequent operands 
are integer expressions. (It is to be noted that alt 
expressions, including those involved in the format-valued 
reference in an r_format, are to be evaluated at runtime from the 
runtime procedures but are compiled, when necessary, as internal 
procedures of the block containing the I/0 statement.) 


AGGREGATE OPERATORS: LOOP AND JOIN 


The loop operator takes five operands and is used for the 
expansion of dimensioned aggregates. Operand one points to the 
expression to be expanded. Operand two is a reference, the 
control variable in the loop. Operand three and four are the 
lower and upper bound expressions for the loop. Operand five is 
a list of those scalar expressions which have been pulled out of 
the loop for optimization purposes. 


The join operator has a variable number of operands which it 
serves to present in order to the code generator. Its operands 
may not be null. It is used in the expansion of structured 
aggregates, in the presentation of data lists in get and put 
statements, and in the compilation of most I/O statements. 
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Appendix - Codes used in The 
Internal Representation 


The Node Types (nodes.incl.pl1) 


The Block 
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block_node 


statement_node 


operator node 


reference node 


token_node 
symbol_node 
context_node 
array_node 
bound node 


format_value_ node 


list_node 
default_node 


machine state node 


source node 
label_node 


cross reference node 


sf_par_node 


temporary _node 


Types (block types.incl.pl1l) 


root_block 


external_procedure 
internal_procedure 


begin_block 
on_unit 
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"000000001"b 
"Q00000010"b 
"Q00000011"b 
"Q00000100"b 
"Q00000101"b 
"Q00000110"b 
"000000111"b 
"000001000"b 
"000001001"b 
"000001010"b 
"000001011"b 
"Q00001100"b 
"000001101"b 
"Q00001110"b 
"000001111"b 
"000010000"b 
"000010001"b 
"000010010"b 


"000000001"b 
"000000010"b 
"Q00000011"b 
"000000100"b 
"000000101"b 
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The Boundary and Offset Unit Values (boundary.incl.pl1) 


bit_ 
character_ 
half_ 
word _ 
mod2__ 
mod4 | 
mods | 


The Declare Types (declare type.incl.pl1) 


by_ declare 

by explicit context 
by_context 

by implication 
by_compiler 
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"Q01"b 
"Q910"b 
"Q11"b 
"100"b 
"101"b 
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unknown_statement 
allocate statement 
assignment_statement 
begin statement 
call_statement 
close statement 
declare statement 
lock statement 
delete statement 
display statement 
do statement 

else clause 

end statement 
entry_statement 
exit_statement 
format_statement 
free statement 
get_statement 

goto statement 

if statement 
locate statement 
null_statement 

on statement 

open statement 
procedure statement 
put_statement 

read statement 
return statement 
revert_statement 
rewrite statement 
signal_statement 
stop statement 
system_on_unit 
unlock statement 
wait_statement 
write statement 
default_statement 
continue statement 
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The Statement Types (statement_types.incl.pl1l) 


"Q00000000"b 
"000000001"b 
"Q00000010"b 
"000000011"b 
"Q00000100"b 
"000000101"b 
"000000110"b 
"000000111"b 
"Q00001000"b 
"000001001"b 
"000001010"b 
"000001011"b 
"000001100"b 
"000001101"b 
"Q00001110"b 
"000001111"b 
"000010000"b 
"000010001"b 
"000010010"b 
"000010011"b 
"000010100"b 
"000010101"b 
"Q000010110"b 
"000010111"b 
"Q00011000"b 
"000011001"b 
"000011010"b 
"000011011"b 
"Q00011100"b 
"000011101"b 
"Q00011110"b 
"000011111"b 
"000100000"b 
"000100001"b 
"000100010"b 
"000100011"b 
"000100100"b 
"000100101"b 
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Hardware and Environment Parameters (system.incl.pl1l) 


max_p flt_bin 1 
max _p flt_bin 2 
max_p_ fix _bin.1 
max_p_fix_bin 2 


max _p dec 


min_ scale 
max_scale 
max_bit string 
max_char_string 
max_area_ size 
min_area_ size 


bits per word 

bits per packed ptr 
bits per double 
characters per_half 
characters _per_word 


27 
63 
35 
71 


61 


-128 
+127 
2359296 
262144 
65536 
30 


36 
36 
72 
Z 
4 


characters per double 8 


words per_label_ var 
words per _entry_var 
bits per_character 
bits per_half 


default_area_ size 
default_flt_bin_p 
default_fix_ bin p 
default_flt_dec p 
default_fix_dec p 


integer type 


4 
4 
9 
18 


1024 
27 
17 
10 

7 


"Q10000000000000000000100000011000000"b 


dec_integer_type 


"Q10000000000000000000100000101000000"b 


pointer type 


"000001000000000000000100000000000000"b 
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real_type 
"Q01000000000000000000100000011000000"b 


complex_type 
"Q01000000000000000000100000010100000"b 


builtin_type 
"Q00000000000000010000000000000000000"b 


storage block type 
"Q00000000000100000000000000000000000"b 


arg desc type 
"Q00000000001000000000000000000000000"b 


local_label_var_type 
"Q00000001000000000000100001000010000"b 


entry_var_type 
"000000000100000000000000000000010000"b 


bit_type 
"Q00100000000000000000000000000000000"b 


char_type 
"Q00010000000000000000000000000000000"b 


f logical type 
"Q00100000000000000000100000000000000"b 


f dim type 
"Q00000000000000000000101000000010000"b 


f type conflict 
"111100000000000010000000000000000000"b 
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f dim conflict 
"100000000100000010000000000000000000"b 


f external type 
"Q00000000100000000000000000000000100 
010000000001000000000000000000000000"b 


f test _type 
"Q11100000000000000000000000000000000 
000000000000000000000000000000000000"b 


f auto _type 
"Q00000000000000000000101000000010000 
100010000000000000000000000000000000"b 


f member type 
"Q00000000000000000000101000000010000 
100100100000000000000000000000100000"b 


f_common_type 
"100000000000000000000000000000000000 
010000100000000000000000000000000000"b 


f external conflict 
"100000000000000000010000000000000000 
000110000000000000000000000000000000"b 


f auto conflict 
"100000000100000010000000000000000000 
000100000100000000000000000000000000"b 


f common conflict 
"100000000100000010000000000000000000 
000110000100000000000000000000000000"b 
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f dat _equ_conflict 
"100000000100010010000000000000000000 
000000000100000000000000000000000000"b 
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no_token 
identifier 
isub 

plus 

minus 
asterisk 
slash 

expon 

not 

and 

or 

cat 

eq 

ne 

lt 

gt 

le 

ge 

ngt 

nlt 
assignment 
colon 
semi_colon 
comma 
period 
arrow 
left_parn 
right_parn 
bit string 
char_string 
bin integer 
dec_integer 
fixed_bin 
fixed dec 
float _bin 
float_dec 
i_bin_integer 
i_dec_ integer 
i_ fixed bin 
i_ fixed dec 
i_float_bin 
i _float_dec 
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"000000000"b 
"100000000"b 
"010000000"b 
"001000001"b 
"001000010"b 
"001000011"b 
"001000100"b 
"001000101"b 
"001000110"b 
"001000111"b 
"001001000"b 
"001001001"b 
"001001010"b 
"001001011"b 
"001001100"b 
"001001101"b 
"001001110"b 
"001001111"b 
"001010000"b 
"001010001"b 
"001010010"b 
"001010011"b 
"001010100"b 
"001010101"b 
"001010110"b 
"001010111"b 
"001011000"b 
"001011001"b 
"000100001"b 
"000100010"b 
"000110001"b 
"000110011"b 
"000110000"b 
"000110010"b 
"000110100"b 
"000110110"b 
"000111001"b 
"000111011"b 
"000111000"b 
"000111010"b 
"000111100"b 
"000111110"b 
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is identifier "100000000"b 


is isub "Q10000000"b 
is delimiter "001000000"b 
is constant "0Q00100000"b 


is arith constant "000010000"b 


(FORTRAN ONLY) 


label_argument "010000001"b 
hollerith_constant_header "010000010"b 
x_format_f "Q10000011"b 
new_line "Q01011010"b 
logical_constant "000100001"b 
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add "Q00010001"b 
opnd(1) <- opnd(2)+opnd(3) 


sub "Q00010010"b 
opnd(1) <- opnd(2) -opnd(3) 


mult "Q00010011"b 
opnd(1) <- opnd(2)*opnd(3) 


div "Q00010100"b 
opnd(1) <- opnd(2)/opnd(3) 


negate "Q00010101"b 
opnd(1) <- -opnd(2) 


exp "Q00010110"b 
opnd(1) <- opnd(2) ** opnd(3) 


and bits "Q00100001"b 
opnd(1) <- opnd(2) & opnd(3) 


or bits "Q00100010"b 
opnd(1) <- opnd(2)|opnd(3) 


xor bits "Q00100011"b 
opnd(1) <- opnd(2) xor opnd(3) 


not_bits "Q00100100"b 
opnd(1) <- “opnd(2) 


cat_string "000100101"b 
opnd(1) <- opnd(2) | |opnd(3) 
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assign "Q00110001"b 
opnd(1) <- opnd(2) 


assign size ck "000110010"b 
opnd(1) <- opnd(2) 


assign zero "000110011"b 
opnd(1) <- 0 
copy_words "000110100"b 


move opnd(2) to opnd(1) by opnd(3) words 


copy_string "000110101"b 
move opnd(2) to opnd(1) by opnd(3) units 


make_desc "000110110"b 
opnd(1) <- descriptor(opnd(2),opnd(3) ) 


pack "Q00111000"b 
opnd(1) <- encode to picture opnd(2) 


unpack "Q00111001"b 
opnd(1) <- decode from picture opnd(2) 


less than "Q01000100"b 
opnd(1) <- opnd(2) < opnd(3) 


greater than "001000101"b 
opnd(1) <- opnd(2) > opnd(3) 


equal "Q01000110"b 
opnd(1) <- opnd(2) 


opnd(3) 


not equal "Q01000111"b 
opnd(1) <- opnd(2) “= opnd(3) 
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less or equal "001001000"b 
opnd(1) <- opnd(2) <= opnd(3) 


greater or equal "001001001"b 
opnd(1) <- opnd(2) >= opnd(3) 


jump "Q01010001"b 
go to opnd(1) unconditionally 


jump true "Q01010010"b 
go to opnd(1) if opnd(2) is not 0 


jump false "Q01010011"b 
go to opnd(1) if opnd(2) is all 0 


jump if it "Q01010100"b 
go to opnd(1) if opnd(2) < opnd(3) 


jump_if_gt "Q01010101"b 
go to opnd(1) if opnd(2) > opnd(3) 


jump_if_eq "Q01010110"b 
go to opnd(1) if opnd(2) 


opnd(3) 


jump_if_ne "Q01010111"b 
go to opnd(1) if opnd(2) “= opnd(3) 


jump_if_le "001011000"b 
go to opnd(1) if opnd(2) <= opnd(3) 


jump_if ge "Q01011001"b 
go to opnd(1) if opnd(2) >= opnd(3) 


jump three way "001011010"b 
opnd(1) = expression 
go to opnd(2) if expression 
go to opnd(3) if expression 
go to opnd(4) if expression 


Vila 
ooo 
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std_arg list 


return_words 


std_call 


return bits 


std_entry 


return_string 


ex_ prologue 


allot_auto 


param ptr 


param desc ptr 


std_return 


allot_ctl 


"Q01100001"b 
opnd(1) <- arglist(opnd(2) desclist(opnd(3) )) 


"Q01100010"b 
return aggregate opnd(1), opnd(2) is length 
in words 


"Q01100011"b 
opnd(1) <- call opnd(2) with opnd(3) 


"001100100"b 
return aggregate opnd(1), opnd(2) is length 
in bits 


"Q01100101"b 
entry(opnd(1)... opnd(n)) 


"Q01100110"b 
return string opnd(1) 


"Q01100111"b 
execute the prologue -no operands- 


"Q01101000"b 
opnd(1) <- addrel(stack,opnd(2) ) 


"Q01101001"b 
opnd(1) <- ptr to opnd(2) in block opnd(3) 


"Q01101010"b 
opnd(1) <- ptr to opnd(2) in block opnd(3) 


"Q01101011"b 
return -no arguments- 


"Q01101100"b 
allocate opnd(1) and its desc opnd(2) 
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free ctl 


bit _to char 


bit _to word 


char_to_word 


half_to_word 


word to mod2 


word to mod4 


word to _mod8 


rel_fun 


baseno_fun 


desc size 


ceil fun 


"Q01101101"b 
free opnd(1) 


"Q10000000"b 
opnd(1) <- (opnd(2)+8)/9 


"Q10000001"b 
opnd(1) <- (opnd(2)+35)/36 


"Q10000010"b 
opnd(1) <- (opnd(2)+3)/4 


"Q@10000011"b 
opnd(1) <- (opnd(2)+1)/2 


"Q10000100"b 
opnd(1) <- (opnd(2)+1)/2*2 


"Q10000101"b 
opnd(1) <- (opnd(2)+3)/4*4 


"Q10000110"b 
opnd(1) <- (opnd(2)+7)/8*8 


"Q@10000111"b 
opnd(1) <- rel(opnd(2) ) 


"Q10001000"b 
opnd(1) <- baseno(opnd(2) ) 


"Q@10001001"b 
opnd(1) <- substr(opnd(2),13,24) 


"Q10010000"b 
opnd(1) <- ceil(opnd(2) ) 
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floor fun 


round fun 


sign_fun 


abs_ fun 


trunc_fun 


tran_sign fun 


index_fun 


off fun 


complex fun 


conjg_ fun 


mod_fun 


repeat_fun 


"Q10010001"b 
opnd(1) <- floor(opnd(2) ) 


"Q10010010"b 
opnd(1) <- round(opnd(2) ) 


"Q10010011"b 
opnd(1) <- sign(opnd(2) ) 


"Q10010100"b 
opnd(1) <- abs(opnd(2) ) 


"Q10010101"b 
opnd(1) <- trunc(opnd(2) ) 


"Q@10010110"b 
opnd(1) <- abs(opnd(2) ) 
with the sign of opnd(3) 


"Q10100000"b 
opnd(1) <- index(opnd(2),opnd(3) ) 


"Q10100001"b 
opnd(1) <- offset(opnd(2),opnd(3) ) 


"Q10100010"b 
opnd(1) <- complex(opnd(2),opnd(3) ) 


"Q@10100011"b 
opnd(1) <- conjg(opnd(2),opnd(3) ) 


"010100100"b 
opnd(1) <- mod(opnd(2),opnd(3) ) 


"Q@10100101"b 
opnd(1) <- repeat(opnd(2),opnd(3) ) 
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verify fun 


translate fun 


lock_fun 


real_fun 


imag_fun 


length_fun 


pl1_mod_ fun 


search fun 


allocation fun 


reverse fun 


addr_fun 


addr_fun_bits 


"Q10100110"b 
opnd(1) <- verify(opnd(2),opnd(3) ) 


"010100111"b 


opnd(1) <- translate(opnd(2),opnd(3) ) 


"Q10101000"b 
opnd(1) <- stac(opnd(2),opnd(3) ) 


"Q10101001"b 
opnd(1) <- real(opnd(2) ) 


"Q10101010"b 
opnd(1) <- imag(opnd(2) ) 


"Q10101011"b 
opnd(1) <- length(opnd(2) ) 


"Q10101100"b 
opnd(1) <- mod(opnd(2) ) 


"Q@10101101"b 
opnd(1) <- search(opnd(2),opnd(3) ) 


"Q@10101110"b 
opnd(1)<-allocation(opnd (2) ) 


"Q@10101111"b 
opnd(1) <- reverse(opnd(2) ) 


"Q10110000"b 
opnd(1) <- addr(opnd(2) ) 


"Q@10110001"b 
opnd(1) <- addr(opnd(2) ) 
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ptr_fun 


baseptr_fun 


addrel_fun 


min_fun 


max_ fun 


pos dif fun 


enable on 


revert_on 


signal_on 


bound_ck 


range_ck 


"Q10110010"b 
opnd(1) <- ptr(opnd(2),opnd(3) ) 


"Q10110011"b 
opnd(1) <- baseptr(opnd(2) ) 


"Q10110100"b 
opnd(1) <- addrel(opnd(2),opnd(3) ) 


"Q11000000"b 
opnd(1) <- min(opnd(1),opnd(2),...) 


"Q11000001"b 
opnd(1) <- max(opnd(1),opnd(2),...) 


"Q@11000010"b 
opnd(1) <- opnd(2) - min(opnd(2),opnd(3) ) 


"Q11010100"b 

opnd(1) is the cond name 
opnd(2) is the file name 
opnd(3) is the block 


"Q11010101"b 
opnd(1) is the cond name, 
opnd(2) is the file name 


"Q11010110"b 
opnd(1) is the cond name 
opnd(2) is the file name 


"Q11100000"b 
opnd(1) <- opnd(2) 
if opnd(3) <= opnd(2) <= opnd(4) 


"Q11100001"b 
opnd(1) <- opnd(2) 
if opnd(3) <= opnd(2) <= opnd(4) 
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Loop 


join 


r_parn 


L_parn 


r_format 


c_format 


f_ format 


e format 


"Q11100010"b 

do opnd(1) for opnd(2) from opnd(3) 
to opnd(4) by 1 , opnd(5) being 

a list of scalar expressions removed 


from the loop for optimization purposes. 


"Q11100011"b 
compile in sequence: 
opnd(1), opnd(2) ... opnd(n) 


"Q11110001"b 


"Q@11110010"b 

opnd(1) is format operator after 
parenthesized format list, opnd(2) 
is repitition count, opnd(3) is 
first format operator of 
parenthesized format list 


"Q11110011"b 

opnd(1) is next format operator 
opnd(2) is repitition count 
opnd(3) is format-valued reference 


"Q11110100"b 

opnd(1) is next format operator 
opnd(2) is repitition count 
opnd(3) is real format operator 
opnd(4) is real format operator 


"Q11110101"b 

opnd(1) is next format operator 
opnd(2) is repitition count 

opnd(3) is field size 

opnd(4) is default decimal position 
opnd(5) is scale factor 


"Q11110110"b 

opnd(1) is next format operator 
opnd(2) is repitition count 

opnd(3) is field size 

opnd(4) is default decimal position 
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opnd(5) is total precision 


b_ format "Q11110111"b 
opnd(1) is next format operator 
opnd(2) is repitition count 
opnd(3) is field size 


a_format "Q11111000"b 
opnd(1) is next format operator 
opnd(2) is repitition count 
opnd(3) is field size 


x_ format "Q11111001"b 
opnd(1) is next format operator 
opnd(2) is repitition count 
opnd(3) is field size 


skip_ format "011111010"b 
opnd(1) is next format operator 
opnd(2) is repitition count 
opnd(3) is skip count 


column format "011111011"b 
opnd(1) is next format operator 
opnd(2) is repitition count 
opnd(3) is target column 


page format "011111100"b 
opnd(1) is next format operator 
opnd(2) is repitition count 


line format "011111101"b 
opnd(1) is next format operator 
opnd(2) is repitition count 
opnd(3) is target line number 


picture format "011111110"b 
opnd(1) is next format operator 
opnd(2) is repitition count 
opnd(3) is picture constant 
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get_list_trans 


get_edit_ trans 


get_data trans 


put_list_trans 


put_edit_trans 


put_data_trans 


"100000000"b 
getlist(opnd(2) ) 
with opnd(1)=desc(opnd (2) ) 


"100000001"b 
getedit (opnd(2) ) 
with opnd(1)=desc(opnd (2) ) 


"100000010"b 
opnd(1) is join of items (references) 
in data list. 


"100000011"b 
putlist(opnd(2) ) 
with opnd(1)=desc(opnd (2) ) 


"100000100"b 
putedit (opnd(2) ) 
with opnd(1)=desc(opnd (2) ) 


"100000101"b 

putdata(opnd(2) ) 

where opnd(1) points to list-node of 
subscript expressions (or is null) 


terminate trans "100000110"b 


stream prep 


record io 


terminate stream transmission 


"100000111"b 

initiate stream transmission 

opnd(1) is description of statement 
opnd(2) is label for abnormal return 


"100001000"b 

perform record i/o operation 

opnd(1) is description of statement 
and options; opnd(2), if present, is 
label for abnormal return 
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open file 


close file 


These operators are produced by the parse but are not used as 


"100011001"b 


opnd(1) is 
opnd(2) is 
opnd(3) is 
opnd(4) is 


opnd(5) is attribute-bits 


opnd(6) is 


linesize 
file 
title 
pagesize 


job-bits 


"100011010"b 


opnd(2) is 
opnd(3) is 


input to the code generator. 


They are processed by the semantic translator. 


return_value 


allot_based 


free based 


get_file 


"100010010 


file 
job-bits 


"b 


return(opnd(1) ) 


"100010011 


allot opnd(1) in opnd(2) 


"100010100 


free opnd(1) out of opnd(2) 


"100010101 
opnd(1) is 
opnd(2) is 
opnd(3) is 
opnd(4) is 
opnd(5) is 
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"b 


"b 


"bh 
copy 
file 
skip 
list 
job-bits 
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get_string "100010110"b 
opnd(1) is copy 
opnd(2) is string 
opnd(4) is list 
opnd(5) is job-bits 


put_file "100010111"b 
opnd(1) is line 
opnd(2) is file 
opnd(3) is skip 
opnd(4) is list 
opnd(5) is job-bits 


put_string "100011000"b 
opnd(2) is string 
opnd(4) is list 
opnd(5) is job-bits 


read file "100011011"b 
opnd(1) is set, into, or ignore 
opnd(2) is file 
opnd(3) is key or keyto 
opnd(4) is job-bits 


write file "100011100"b 
opnd(1) is from 
opnd(2) is file 
opnd(3) is keyfrom 
opnd(4) is job-bits 


locate file "100011101"b 
opnd(2) is file 
opnd(3) is keyfrom 
opnd(4) is variable to be located 
opnd(5) is job-bits 


do fun "100011110"b 
opnd(1) is join of a list 
opnd(2) is control variable ref 
opnd(3) is specification operator 
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do spec 


rewrite file 


delete file 


refer 


prefix_plus 


nop 


"100011111"b 

opnd(1) to opnd(2) by opnd(3) 
repeat opnd(4) while opnd(5) 
opnd(6) is next specification 


"100100000"b 
opnd(1) is from 
opnd(2) is file 
opnd(3) is key 
opnd(4) is job-bits 


"100100001"b 
opnd(2) is file 
opnd(3) is key 
opnd(4) is job-bits 


"100100101"b 
opnd(1) refer(opnd(2) ) 


"100100110"b 
opnd(1) <- +opnd(2) 


"100100111"b 
no-op 


Chapter3. runoff 
0844.0rew 08/14/74 0844.0 415458 


SECTION III 


SYNTACTIC TRANSLATION 
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AN OVERVIEW 


Syntactic translation is the process of disassembling the 
source program into its consituent parts called tokens, building 
an internal representation of the program, and _ putting 
information into the symbol table and other tables. The 
syntactic translator consists of two modules called the lexical 
analyser and the parse. 
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LEXICAL ANALYSIS 


The lexical analyser scans the characters of the source 
program from left to right and organizes the characters into 
groups of tokens which represent a_ statement. It creates the 
source listing file, it also builds a token table which contains 
the source representation of all tokens used in the source 
program. The lexical analyser is called by the parse each time 
the parse needs a new statement. 


The token table produced by the lexical analyser contains a 
single entry for each unique token in the source program. 
Searching of the token table is done using a hash coded _ scheme 
that provides quick access to the table. 


Each token table entry contains a pointer which may 
eventually point to a declaration of the token, that is, the 
symbol node. For each statement, the lexical analyzer builds a 
vector of pointers to the tokens which were found in the 
statement. This vector is the input to the parse. 
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NAME : lex 


Function: 


1. It maintains an internal static running character index to 
the source segment that shows at any instant the beginning of 
the source that the lexical analyser has yet to process. 


2. It scans the source segment until it reaches the next 
semicolon, and groups the characters it has scanned into a 
set of lexical units called tokens. The order of tokens is 
kept in an internal static array of pointers called the token 
list. When lex returns, the character index is pointing at 
the character immediately following the semicolon that it has 
just scanned. 

3. When an include statement is found in the text, lex treats 
the include segment as the current source segment and goes on 
processing, until it reaches the end of the include segment. 
Then it reverts to the original source segment. 


4. If a listing is required, lex writes the source into the 
listing segment. 


Entry: 


lex 


Usage: 


declare lex entry; 


call lex; 


Programs that invoke this entry: 
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procedure parse 
do parse 
if parse 


Entry: 


lex$write last _line 


This entry checks that no text follows the logical end of 
the program. This entry writes the last line of the source into 
the listing segment. It also writes the list of all include 
files used by the program into the listing segment. 


Usage: 


declare lex$write last line entry; 


call lex$write_last_line; 


Programs that invoke this entry: 


parse 


Entry: 


lex$terminate source 


This entry terminates the source segment. 


Usage: 
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declare lex$terminate source entry; 


call lex$terminate source; 


Programs that invoke this entry: 


pll 
Entry: 
lex$scan_token_table 
This entry goes down the hash table and checks for duplicate 
declarations. 
Usage: 


declare lex$scan token table entry; 


call lex$scan_ token table; 


Programs that invoke this entry: 


pll 


Entry: 


lex$initialize lex 
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This entry initializes the data$data pointer once per 
process, and initializes the hash table once per compilation. 


Usage: 


declare lex$initialize lex entry; 


call lex$initialize lex; 


Programs that invoke this entry: 


parse 


Entry: 


lex$meter 


This entry gathers some statistics about the hash table. 


1. Number of empty buckets in the hash table. 

2. Total number of tokens used in the program. 

3. Maximum number of tokens in a single bucket of hash table. 
4. Total storage used by all the token nodes for the program. 
Usage: 


declare lex$meter entry ( token count, token words, 
empty buckets, maximum ); 


call lex$meter ( fixed bin(15), fixed bin(15), fixed 
bin(15), fixed bin(15) ); 


1. token count total number of tokens used in the 
program. (output) 
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2. token words 


3. empty buckets 


4. maximum 


total number of words of storage in 
the tree segment used by all the 
token nodes in the - program. 
(output) 


total number of empty buckets in 
the hash table. (output) 


the maximum number of tokens in a 
single bucket. (output) 


Programs that invoke this entry: 


none 


Internal Procedures: 


create source 


lex_create_ token 


lex_err 


External Variables: 


an internal procedure to create a source node 
for each of the include file used in the 
source program. 


an internal function used to create a_ token 
node for the token represented by the 
token string. This function does essentially 
the same things as the external procedure 
create token. The reason for this internal 
function is to save the large number of 
calling sequence lex would have to made to 
call the more expensive external procedure. 


an internal procedure used to call the error 
message program error. 
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data$data 
pll_stat_$cur_statement 
pll_stat_$hash table 
pll_stat_$last_source 
pll_stat_ $line count 
pll_stat_$listing on 
pll_stat_$node_uses 
pll_stat_$seg_name 
pll_stat_$source_ index 
pll_stat_$source list ptr 
pll_stat_$source ptr 
pll_stat_$source seg 
pll_stat_$st_length 
pll_stat_$st_start 
pll_stat_$statement_id 
tree $ 


Internal Static Variables: 


bitcount bit_count of an include file. 

dataptr pointer to the data$ segment that contains 
the driving table for lex. 

end_of file bit indicating end of segment is reached. 

file ptr pointer to an include file. 

file stack array of structure’ that contains the 


information of the source segment and all the 
include files used in the source. 


file token pointer to the token node created for the 
name of an include file. 

filename length length of the include file name. 

first _time bit indicating whether lex$initialize lex has 
been previously called in the same process. 

index the running character index to the source 
segment. 

line size length of the current source line being 


processed by lex. 
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listing_on 


old file token 


saved index 

saved length 
saved source line 
saved tindex 

seg ptr 
semi_colon_ ptr 


source depth 


bit indicating whether a 
for this compilation. 
as pll_stat_$listing_ on. 


listing 


pointer to the old token node created for the 


name of an include file. 
saved running character index. 


saved length of current line. 


saved total length of current source line. 


saved length of the token string. 
pointer to an include file. 
pointer to the token node ";". 


number of include files used. 


It has the same value 


source files total number of include files used. 


source line total length of current source line. 
source string length 
length of the source segment. 


Programs Called: 


bindec 

bindec$vs 

create token 

error, 

error _$no_ text 

find include file $initiate count 
hcs $terminate_noname 

pll_get 

pll_print$for_ lex 
pll_print$non_varying 
pll_print$non_ varying nl 
pll_print$varying nl 
token_to_binary 

translator info $get_ source info 
tree $ 
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Include Files used: 


rename 
create token 
language utility 
source id descriptor 
nodes 

token 

token_types 

token list 

source list 

declare type 

symbol 

system 


Errors Diagnosed: 


Error 76 

Error 99 

Error 100 
Error 101 
Error 103 
Error 104 
Error 105 
Error 106 
Error 107 
Error 108 
Error 109 
Error 110 
Error 111 
Error 112 
Error 125 
Error 151 
Error 152 
Error 153 
Error 154 
Error 155 
Error 156 
Error 157 
Error 158 
Error 159 
Error 441 
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NAME: data 


Function: 


This is a data segment that contains the driving table for 
the lexical analyzer. It consists of a two dimensional matrix of 
the form matrix(1:31,0:29). The lexical analyzer is an 
approximation of a finite state machine with 31. states. The 
input to the lexical analyzer is a character string. The 
character set used to construct the string can be _ loosely 
classified into 29 types. By a simple transformation, the matrix 
is declared as matrix(0:929). Each element of the matrix is a 36 
bit bitstring containing four 9 bit substrings. The first nine 
bits give the token type of a resulting group of characters, the 
second nine bits are currently not used, the third nine bits give 
the action to take in lex, and the last nine bits give the next 
state. 
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THE PARSE 


The parse gets the statement represented by the vector of 
token pointers from the tex and proceeds to analyze the 
statement, and transform the statement into an appropriate 
internal representation. The completed internal representation 
is a program tree that contains all the relationships between all 
the components of the original source program. 
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NAME: parse 


Function: 


1. It initializes various static variables and modules used for 
the parse. 


2. It creates the root block node as the basis for the whole 
tree segment for the program. 


3. It calls lex for the first statement of the program, and 
subsequently invokes procedure parse to parse the remaining 
statements of the program. 


Entry: 
parse 
Usage: 
declare parse entry ( ptr, ptr, fixed bin (15) ); 
call parse ( root, source ptr, source length ); 
1. root pointer to the root node _ block 
created by parse. (output) 
2. source ptr pointer to the base of the segment 
containing the source’ program. 
(input) 
3. source length length in characters of the source 


program. (input) 


Programs that invoke this entry: 
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pll 


Internal Procedures: 


none 


External Variables: 


pl1_stat_$compiler_created_index 
pll_stat_$error_memory 
pll_stat_$one 
pll_stat_$util_abort 


Internal Static Variables: 


none 


Programs Called: 


create block 

create token 

error $initialize error 
lex$initialize lex 
lex$write_last_line 
parse error 

procedure parse 
reserve$clear 
statement_type 


Include Files used: 


block 
block_types 
language utility 
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parse 
source id descriptor 
statement_types 
token_types 


Errors Diagnosed: 


Error 180 
Error 417 
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NAME : procedure parse 


Function: 
1. It processes all statements occurring in begin blocks and 
procedures. 
By processing a statement is meant the following steps: 
a. calling lex to get the statement. 
b. calling statement_type to determine the type of the 
statement. 
c. calling an appropriate procedure to parse the statement 
into its proper internal representation. 
2. It creates a block node for the begin block or the procedure. 
3. It calls itself recursively to handle nested blocks. 


4. It attempts to match end statements to the proper procedure 
statement or begin statement. 


Entry: 


procedure parse 


Usage: 


declare procedure parse entry ( fixed bin(15), ptr, 
bit(12) aligned, ptr, ptr, bit(9) aligned, bit(1) aligned ); 


call procedure parse ( token _list_index, entry ptr, 
conditions, father block ptr, end ptr, block type, return flag ); 


1. token_list_index index of the token list for the 
statement. (input/output) 


2. entry_ptr pointer to the list of labels. 
(input) 
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3. conditions 


4. father block ptr 


5. end ptr 


6. block type 


7. return flag 


conditions for the block. (input) 


pointer to the block node 
containing this block. (input) 


pointer to the token that ends the 
block. (output) 


type of this block. (input) 


bit indicating if there is a return 
statement in this block. (output) 


Programs that invoke this entry: 


parse 

procedure parse 
do parse 

on_ parse 
if_parse 


Internal Procedures: 


none 


External Variables: 


pla_stat_$cur_statement 
tree $ 


Internal Static Variables: 


none 
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3-96 order number 


Programs Called: 


create block 
create operator 
create statement 
declare label 
declare parse 
default_parse 

do parse 
if_parse 

io _statement_parse 
lex 

on_ parse 

parse error 
procedure parse 
process entry 
statement_parse 
statement_type 


Include Files used: 


parse 
language _ utility 
source id descriptor 
token list 

block 

declare type 

op_ codes 

statement 

token 

block_types 
statement_types 
token_types 

list 


Errors Diagnosed: 


Error 410 
Error 411 
Error 412 
Error 416 
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NAME : do parse 


Function: 


1. It parses the do statement. 


2. It processes all statements following the do statement until 
a matching end statement is found. 


3. It may call itself recursively to process other’ do 
statements. 


Entry: 


do parse 


Usage: 


declare do parse entry ( fixed bin(15), ptr, bit(12) 
aligned, ptr, ptr, bit(1) aligned, bit(1) aligned, bit(1) aligned 


’ 


call do parse ( token list index, entry ptr, 
conditions, father block ptr, end ptr, entry flag, return flag, 
iterative do flag ); 


1. token _list_index index of the token list for the 
statement. (input/output) 


2. entry_ptr pointer to the list of labels. 
(input) 

3. conditions conditions for the block. (input) 

4. father block ptr pointer to the block node 


containing this block. (input) 


DRAFT: SUBJECT TO CHANGE 3-98 order number 


5. end ptr 


6. entry flag 


7. return flag 


8. iterative do flag 


pointer to the token node that ends 
the block. (output) 


bit indicating whether there is any 
entry statement within this block. 
(output) 


bit indicating whether there is any 
return statement within this block. 
(output) 


bit indicating whether an iterative 
do group has been found. (output) 


Programs that invoke this entry: 


procedure parse 
do parse 
if parse 


Internal Procedures: 


print 
an 


internal procedure used to call the error 


message program parse error. 


External Variables: 


pll_stat_$cur_statement 


tree $ 


Internal Static Variables: 


none 


DRAFT: SUBJECT TO CHANGE 


3-99 order number 


Programs Called: 


create label 
create list 
create operator 
create statement 
declare label 
declare parse 
default_parse 

do parse 
expression parse 
free node 
if_parse 

io statement_parse 
lex 

on_ parse 

parse error 
procedure parse 
process entry 
reference parse 
statement_parse 
statement_type 


Include Files used: 


parse 
language utility 
source id descriptor 
token list 

block 

op codes 

operator 

statement 

token 

block_types 
statement_types 
token_types 

list 

label 

reference 

declare type 
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Errors Diagnosed: 


Error 404 
Error 405 
Error 406 
Error 407 
Error 408 
Error 409 
Error 411 
Error 413 
Error 416 
Error 418 
Error 419 
Error 424 
Error 425 
Error 426 
Error 429 
Error 433 


DRAFT: SUBJECT TO CHANGE 3-101 order number 


NAME: on_parse 


Function: 


1. It parses the on statement. 


2. It processes all statements in the on unit. 


3. It creates a block node for the on unit. 


Entry: 


on_parse 


Usage: 


declare on _ parse entry ( fixed bin(15), ptr, bit(12) 


aligned, ptr, ptr ); 


call on_ parse 


( token_list_index, entry ptr, 


conditions, father block ptr, end ptr ); 


1. token _list_index 


2. entry _ptr 


3. conditions 


4. father block ptr 


5. end ptr 


DRAFT: SUBJECT TO CHANGE 


index of the token list for the 
statement. (input/output) 


pointer to the list of labels. 
(input) 


conditions for the block. (input) 


pointer to the block node 
containing this block. (input) 


pointer to the token that ends the 
block. (output) 
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Programs that invoke this entry: 


procedure parse 
do parse 
if_parse 


Entry: 


on_parse$revert 


This entry parses the revert statement and the signal 
statement. 


Usage: 


declare on parse$revert entry ( fixed bin(15), ptr, ptr 


call on_parse$revert( token _list_index, statement_ptr, 
father block ptr ); 


1. token _list_index index of the token list for the 
statement. (input/output) 

2. statement ptr pointer to the statement node for 
the revert statement or the signal 


statement. (input) 


3. father block ptr pointer to the block node that 
contains this block. (input) 


Programs that invoke this entry: 


statement_parse 
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Internal Procedures: 


get_condition 


this internal function 


condition name 


condition context for the name. 


External Variables: 


pll_stat_$condition_ index 
tree $ 


Internal Static Variables: 


none 


Programs Called: 


bindec$vs 
context 

create block 
create list 
create operator 
create statement 
create symbol 
create token 
declare label 
free node 
io_statement_parse 
parse error 
procedure parse 
reference parse 
statement_parse 
statement_type 


Include Files used: 
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records the 


order number 


parse 
language utility 
source id descriptor 
block 

block_types 
context_codes 
declare type 

list 

nodes 

op codes 

operator 

reference 

statement 
statement_types 
symbol 

token 

token list 
token_types 


Errors Diagnosed: 


Error 1 

Error 42 
Error 420 
Error 421 
Error 422 
Error 423 
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NAME: statement_type 


Function: 


1. It parses the condition prefix for the statement. 
2. It parses the label prefix for the statement. 
3. It determines the type of statement returned by lex. 


Entry: 


statement_type 


Usage: 


declare statement_type entry ( fixed bin(15), ptr, 
bit(12) aligned) returns (fixed bin(15)); 


type = statement_type ( token _list_index, label ptr, 
conditions ); 


1. token _list_index index of the token list for the 
statement. (input/output) 


2. label ptr pointer to the list of labels for 
the statement. (output) 

3. conditions conditions for the statement. 
(output) 

4. type type of statement found by this 


procedure. (output) 


Programs that invoke this entry: 
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procedure parse 
parse 

do parse 

on parse 

if parse 


Internal Procedures: 


has equal 


print 


skip _parens 


External Variables: 


tree $ 


an internal function to advance the 
token _list_index to search for an _ equal 
token. 


an internal procedure to call the error 
message program parse error. 


an internal procedure to advance’ the 
token_list_index until it matches a 
corresponding right parenthesis. 


Internal Static Variables: 


none 


Programs Called: 


create list 
create_reference 
create token 
parse_error 
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Include Files used: 


language utility 
source id descriptor 
token_list 

list 

reference 

nodes 

token_types 
statement_types 


Errors Diagnosed: 


Error 2 

Error 43 
Error 44 
Error 45 
Error 95 
Error 96 
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NAME: statement_parse 


Function: 


1. The following statements are parsed by this program: 
allocate statement 
assignment statement 
call statement 
free statement 
goto statement 
null statement 
return statement 


Entry: 


statement_parse 


Usage: 


declare statement_parse entry ( fixed bin(15), ptr, 
bit(12) aligned, ptr, fixed bin(15) ); 


call statement_parse ( token _list_index, label ptr, 
conditions, cur_block, type ); 


1. token_list_index index of the token list for the 
statement. (input/output) 


2. label ptr pointer to the list of labels for 
the statement. (input) 

3. conditions conditions for the statement. 
(input) 

4.  cur_block pointer to the block node 


containing this statement. (input) 


DRAFT: SUBJECT TO CHANGE 3-109 order number 


5. type type of statement to be 
this program. 


Programs that invoke this entry: 


procedure parse 
do_ parse 
on_ parse 
if parse 


Internal Procedures: 


print 


(input) 


parsed by 


an internal procedure used to call the error 
message program parse error. 


External Variables: 


pll_stat_$cur_ statement 
tree $ 


Internal Static Variables: 


none 


Programs Called: 


context 

create list 
create operator 
create reference 
create statement 
create symbol 
declare label 
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expression parse 
on_parse$revert 
parse error 
reference parse 


Include Files used: 


parse 
language utility 
source id descriptor 
block 

declare type 
context_codes 

label 

list 

nodes 

op_codes 

operator 

reference 

statement 
statement_types 
symbol 

token 

token list 
token_types 


Errors Diagnosed: 


Error 1 

Error 5 

Error 49 

Error 150 
Error 444 
Error 446 
Error 447 
Error 450 
Error 451 
Error 452 
Error 453 
Error 454 
Error 455 
Error 456 
Error 460 
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NAME : if_parse 


Function: 


1. It parses the if statement. 


2. If the then clause is an independent statement, this program 
will parse the then clause. 


3. If the then clause is a group or a begin block, this program 
will process all the statements in the then clause. 


4. It also processes all the statements in the else clause if 


there is an else clause. 


Entry: 


if parse 


Usage: 


declare if _parse entry ( fixed bin(15), ptr, bit(12) 
aligned, ptr, ptr, bit(1) aligned ); 


call if parse 


token list index, entry_ptr, 


conditions, father block, end ptr, return flag ); 


1. token_list_index 


2. entry _ptr 


3. conditions 


4. father block 
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index to the token list for the 
statement. (input/outut) 


pointer to the list of labels for 
this statement. (input) 


conditions for this statement. 
(input) 


pointer to the block node 
containing this statement. (input) 
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5. end ptr pointer to the token that ends the 
block. (output) 


6. return flag bit indicating whether there is a 
return statement in this statement. 
(output) 


Programs that invoke this entry: 


procedure _ parse 
do parse 
if parse 


Internal Procedures: 


print 
an internal procedure used to call the error 
message program parse error. 


External Variables: 


pll_stat_$cur_ statement 
tree $ 


Internal Static Variables: 


none 


Programs Called: 


create label 
create list 
create operator 
create statement 


DRAFT: SUBJECT TO CHANGE 3-113 order number 


declare label 

do parse 
expression parse 
if_parse 

io statement_parse 
lex 

on_parse 

parse error 
procedure parse 
reference parse 
statement_parse 
statement_type 


Include Files used: 


parse 
language utility 
source id descriptor 
token_list 

token 

token_types 

op_codes 

block 

block_types 
statement 
statement_types 
nodes 

reference 

operator 

list 

label 

symbol 

declare type 


Errors Diagnosed: 


Error 1 

Error 412 
Error 430 
Error 431 
Error 432 
Error 446 
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NAME : io statement_parse 


Function: 


1. It parses the following input/output statements: 

get statement 

put statement 

read statement 

write statement 

rewrite statement 

locate statement 

delete statement 

open statement 

close statement 


2. It calls format_list_parse to parse the format statement. 


Entry: 


io statement_parse 


Usage: 


declare io statement_parse entry ( fixed bin(15), ptr, 
bit(12) aligned, ptr, ptr, bit(1) aligned, bit(9) aligned ); 


call io _statement_parse ( token list _ptr, entry ptr, 
conditions, father block, end ptr, return flag, statement type ); 


1. token _list_index index to the token list for the 
statement. (input/output) 


2. entry_ptr pointer to the list of labels fo 
this statement. (input) 

3. conditions conditions for this statement. 
(input) 
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4. father block pointer 


block node 


containing this statement. (input) 


5. end ptr pointer to the token that ends the 
block. 

6. return flag bit indicating whether there is a 
return this block. 
(input) 

7. statement_type type of statement to be parsed by 


this program. 


Programs that invoke this entry: 


procedure _ parse 
do_ parse 
on_ parse 
if_parse 


Internal Procedures: 


none 
External Variables: 
pll_stat_$cur_statement 


tree $ 


Internal Static Variables: 


none 


Programs Called: 
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context 
create_operator 
create_statement 
create symbol 
create token 

data list_parse 
declare label 
expression_parse 
format_list_ parse 
parse _error 


Include Files used: 


parse 
language utility 
source id descriptor 
list 

block_types 

label 

block 

context_codes 

nodes 

declare type 
operator 

op_codes 

statement 
statement_types 
symbol 

token list 
token_types 


Errors Diagnosed: 


Error 169 
Error 237 
Error 238 
Error 239 
Error 240 
Error 241 
Error 243 
Error 245 
Error 247 
Error 254 
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Error 257 
Error 288 
Error 289 
Error 290 
Error 293 
Error 428 
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NAME : format_list_ parse 


Function: 


1. It parses the format list in a format statement. 


2. It parses the format list in a get (edit) statement or a_ put 


(edit) statement. 


Entry: 


format_list_ parse 


Usage: 


declare format_list_ parse entry ( fixed bin(15), ptr, 
ptr, ptr ) returns ( bit(1) aligned ); 


success bit = format_list_parse ( token list index, 
cur_block, statement_ptr, format_tree ); 


1. token _list_index 


2.  cur_block 


3. statement_ptr 


4. format_tree 


5. success bit 
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index to the token list for the 
statement. (input) 


pointer to the block node 
containing the format list. 
(input) 
pointer to the statement node 
containing the format list. 
(input) 


pointer to the format list returned 
by this program. (output) 


bit indicating if the list of 


tokens does indeed parse into a 
format list. (output) 
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Programs that invoke this entry: 


io_statement_parse 
format_list_ parse 


Internal Procedures: 


none 


External Variables: 


tree $ 


Internal Static Variables: 


none 


Programs Called: 


create operator 
create symbol 
declare picture 
expression parse 
format_list_parse 
free node 

parse error 
reference parse 


Include Files used: 


parse 
language utility 
source id descriptor 
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block 

declare type 
label 

list 

nodes 
operator 

op_ codes 
picture image 
reference 
statement 
statement_types 
token list 
token_types 
symbol 


Errors Diagnosed: 


Error 278 
Error 427 
Error 439 
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NAME : data_list_parse 


Function: 


1. It parses the data list in an input/output statement. 


Entry: 


data_list_parse 


Usage: 


declare data list_parse entry ( fixed bin(15), ptr, 
ptr) returns ( bit(1) aligned ); 


success bit = data _list_parse ( token list_index, 
cur_block, data tree ); 


1. token_list_index index to the token list for the 
statement. (input) 


2.  cur_block pointer to the block node 
containing the statement. (input) 


3. data_tree pointer to the data list returned 
by this program. (output) 


4. success bit bit indicating if the list of 
tokens does indeed parse into a 
data list. (output) 


Programs that invoke this entry: 


io _statement_parse 
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Internal Procedures: 


none 


External Variables: 


tree $ 


Internal Static Variables: 


none 


Programs Called: 


create_operator 
expression parse 
parse error 

reference parse 


Include Files used: 


parse 
language utility 
source id descriptor 
operator 

op_codes 

token list 
token_types 


Errors Diagnosed: 


Error 255 
Error 256 
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Error 258 
Error 404 
Error 405 
Error 406 
Error 407 
Error 408 
Error 409 
Error 418 
Error 419 
Error 424 
Error 426 
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NAME: expression parse 


Function: 
1. This procedure parses expressions using a simple operator 
procedence technique. The syntax parsed is: 


<expression> ::= <primitive> [ <operator> <primitive> ] 


where the nth operator and its operands are stacked if the 
n+lst operator has higher precedence. The primitive is 
parsed by the intenal procedure "primitive". 


Entry: 


expression parse 


Usage: 


declare expression parse entry ( fixed bin(15), ptr ) 
returns (ptr); 


expression tree = expression parse ( token _list_ index, 
cur_block ); 


1. token _list_index index to the token list for the 
statement. (input/output) 


2.  cur_block pointer to the block node 
containing this expression. 
(input) 

3. expression tree pointer to the expression returned 


by this program. (output) 
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Programs that invoke this entry: 


attribute parse 
data_list_parse 
default_parse 

do parse 
expression parse 
format_list_ parse 
if_parse 

io statement_parse 
reference parse 
statement_parse 


Internal Procedures: 


primitive 
an internal procedure used to parse 
expressions, exponentiation operators, and 
parenthesized expressions. 


External Variables: 


tree $ 


Internal Static Variables: 


t pointer used to get better accessing to the 
list of tokens. 


Programs Called: 


create operator 
create token 
evaluate 
expression parse 
reference parse 
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Include Files used: 


parse 
language utility 
source id descriptor 
token list 

token 

nodes 

operator 

op_codes 

token_types 


Errors Diagnosed: 


none 
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NAME: reference parse 


Function: 
1. It parses the list of tokens into a reference node whenever 
possible. 


2. The reference may be locator qualified, structure qualified, 
subscripted, or any combination thereof. 


3. The reference may also be a function reference. 


Entry: 


reference parse 


Usage: 


declare reference parse entry ( fixed bin(15), ptr ) 
returns (ptr); 


reference tree = reference parse ( token _list_index, 
cur_block ); 
1. token _list_index index to the token list for the 


statement. (input/output) 


2.  cur_block pointer to the block node 
containing this operand. (input) 

3. reference tree pointer to the operand representing 
the result of reference parse. 
(output) 


Programs that invoke this entry: 
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attribute parse 
data_list_parse 

do parse 
expression parse 
format_list_parse 
if_parse 

io _statement_parse 
on parse 
statement_parse 


Internal Procedures: 


atom 


External Variables: 


tree $ 


an internal procedure to test and parse _ the 
list of tokens into an_ expression. 
Expressions of the form 

( reference ) 
is parsed into 

temporary node = reference 


Internal Static Variables: 


none 


Programs Called: 


context 

create list 
create operator 
create reference 
create symbol 
expression parse 
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Include Files used: 


parse 
language utility 
source id descriptor 
context_codes 
declare type 

list 

nodes 

op_ codes 

operator 

reference 

symbol 

token 

token list 
token_types 


Errors Diagnosed: 


none 
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NAME : declare parse 


Function: 


1. It parses the declare statement. 


declare declare parse entry ( fixed bin(15), ptr, ptr 


Entry: 
declare parse 
Usage: 
); 
call declare parse 
labelptr ); 


1. token_list_index 


2.  cur_block 


3. labelptr 


( token _list_index, cur block, 


index to the token list for the 
statement. (input/output) 


pointer to the block node 
containing this statement. (input) 


pointer to the list of labels to 
this statement. (input) 


Programs that invoke this entry: 


procedure parse 
do parse 
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Entry: 


declare _parse$abort 


This entry calls the error message program parse error. It 
also attempts to resume parse at the first comma after the error 
token not contained in parentheses. 


Usage: 

declare declare parse$abort entry( fixed bin(15), ptr 
); 

call declare parse$abort ( error_number, error pointer 
); 
1. error _number the error number. (input) 
2. error pointer pointer to the operand that causes 


the error. (input) 


Programs that invoke this entry: 


attribute parse 
declare parse 
descriptor parse 


Internal Procedures: 


declare parse factored 
is called to parse all the tokens in the 
declare statement between "declare" and the 
semicolon. It calls attribute parse to 
process the attributes, and it calls itself 
recursively to process factored attribute 
lists when it encounters a left parenthesis. 
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Link symbol 


External Variables: 


an internal procedure used to link up members 


of a structure. 


pll_stat_$cur_statement 
pll_stat_$statement_id 


pll_stat_$unwind 


tree $ 


Internal Static Variables: 


cblock 


factored level 


previous symbol 


Programs Called: 


attribute parse 


create statement 


create symbol 
create token 
declare label 


declare _parse$abort 


free node 


merge attributes 


parse error 
token_to_binary 


pointer to the block node containing this 


declare statement. 


number indicating the depth of 
level the current symbol is in. 


used to show’ the position 
token list index. 


used to show’ the position 
token_list_index. 


pointer to the symbol node of the 
containing the current symbol. 


structure 


of the 


of the 


structure 
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Include Files used: 


parse 
language utility 


source id descriptor 


block 
token_types 
statement_types 
symbol 

token list 
token 

declare type 
reference 

Link _symbol 


Errors Diagnosed: 


Error 3 
Error 27 
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NAME: attribute parse 


Function: 


1. It parses the attribute set occurring in declare statements, 
in the returns(), entry() attributes, and in the when() 
clause of then generic () attribute. 


Entry: 


attribute parse 


Usage: 
declare attribute parse entry ( ptr, ptr, fixed 
bin(15), bit(1) aligned ); 


call attribute parse ( cur_block, symbol _ ptr, 
token _list_index, generic bit ); 


1. cur_block pointer to the block node 
containing this declaration. 
(input) 

2. symbol ptr pointer to the symbol node for 


which the attributes are declared 
for. (input) 


3. token _list_index index to the token list for the 
statement. (input/output) 


4. generic bit bit indicating that the procedure 
is called in the generic attribute 
context, which allows the 


declaration of precision attribute 
to range from low precision to high 
precision and the scale attribute 
to range from low scale to high 
scale. (input) 
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Programs that invoke this entry: 


declare_parse 
default_parse 
descriptor parse 


Internal Procedures: 


get_scale 


initial list 


print 


refer_exp 


External Variables: 


pll_stat_$one 
tree $ 


an internal procedure to get the scale of a 
fixed or precision attribute. 


an internal procedure to parse the initial 
attribute. 


an internal procedure used to call the error 
message program declare parse$abort. 


an internal procedure to get the size or the 
bound of an item. In particular, if the size 
or bound has refer_extents declaration, it 
will be parsed. 


Internal Static Variables: 


none 
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Programs Called: 


context 

create array 
create bound 
create list 
create operator 
create token 
declare _parse$abort 
descriptor parse 
expression parse 
reference parse 
token_to_binary 


Include Files used: 


parse 
language utility 
source id descriptor 
attribute table 
block 

token_list 

reference 
context_codes 
token_types 

symbol 

array 

operator 

op_codes 

list 

nodes 


Errors Diagnosed: 


Error 6 
Error 7 
Error 8 
Error 9 
Error 10 
Error 11 
Error 12 
Error 13 
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Error 14 
Error 15 
Error 17 
Error 18 
Error 19 
Error 20 
Error 22 
Error 23 
Error 24 
Error 26 
Error 57 
Error 138 
Error 192 
Error 193 
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NAME : default_parse 


Function: 


1. It parses the default statement. 


Entry: 
default_parse 
Usage: 
declare default_parse entry ( fixed bin(15), ptr, ptr 
); 
call default_parse ( token list index, cur_block, 
label ptr ); 
1. token_list_index index to the token list for the 
statement. (input/output) 
2.  cur_block pointer to the block node 
containing this statement. (input) 
3. label_ptr pointer to the list of labels’ for 


this statement. (input) 


Programs that invoke this entry: 


procedure parse 
do parse 


DRAFT: SUBJECT TO CHANGE 


3-139 order number 


Internal Procedures: 


none 


External Variables: 


pll_stat_$cur_statement 
pll_stat_$statement_id 
pll_stat_$unwind 

tree $ 


Internal Static Variables: 


none 


Programs Called: 


attribute parse 
create default 
create statement 
create symbol 
declare label 
expression parse 
free node 

parse error 


Include Files used: 


parse 
language utility 
source id descriptor 
default 

symbol 

block 

token_list 
token_types 
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statement_types 
declare type 


Errors Diagnosed: 


Error 48 
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NAME : descriptor parse 


Function: 


1. It parses descriptor lists. Descriptor lists occur in the 
following three contexts: 
entry ( descriptior list ) in the entry attribute, 
returns ( descriptior list ) in the returns attribute, 
when ( descriptior list ) in the when clause of the 
generic attribute. 


Entry: 


descriptor parse 


Usage: 


declare descriptor parse entry ( ptr, ptr, fixed 
bin(15) ) returns (ptr); 


return ptr = descriptor parse ( cur_block, token ptr, 
token _list_index ); 


1. cur_block pointer to the block node 
containing this declaration. 
(input) 

2. token ptr pointer to the token node for which 
the attribute is declared for. 
(input) 

3. token list index index to the token list for the 


statement. (input/output) 


4. return ptr pointer to the chain of list nodes 
returned by this program. (output) 
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Programs that invoke this entry: 


attribute parse 
process entry 


Internal Procedures: 


Link symbol 


an internal procedure used to link up members 


of a structure. 


External Variables: 


tree $ 


Internal Static Variables: 


none 


Programs Called: 


attribute parse 
bindec$vs 

create list 

create symbol 
create token 
declare parse$abort 
parse error 
token_to_ binary 


Include Files used: 
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parse 
language utility 
source id descriptor 
symbol 

token_list 
token_types 

declare type 

list 

Link symbol 


Errors Diagnosed: 


Error 16 
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NAME: process entry 


Function: 


1. It parses the procedure statement and the entry statement. 


Entry: 


process entry 


Usage: 


declare process entry entry 


aligned, ptr, ptr, bit(12) aligned ); 


( fixed bin(15), bit(9) 


call process entry ( token _list_index, statement_type, 


cur_block, entry ptr, conditions ); 


1. token_list_index index to the token list for the 
statement. (input/output) 

2. statement_type type of statement. (input) 

3.  cur_block pointer to the block node 
containing this statement. (input) 

4. entry ptr pointer to the list of labels for 
this statement. (input) 

5. conditions conditions for this statement. 
(input) 


Programs that invoke this entry: 
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procedure parse 
do_ parse 


Internal Procedures: 


print 


an internal procedure used to call the error 


message program parse error. 


External Variables: 


cg static _$support 
pll_stat_$cur_ statement 
pll_stat_$root 
pll_stat_$statement_id 
pll_stat_$unwind 
pll_stat_$validate proc 
tree $ 


Internal Static Variables: 


none 


Programs Called: 


context 
create cross reference 
create list 

create operator 

create statement 
create symbol 

create token 
descriptor parse 

parse error 
reserve$rename parse 
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Include Files used: 


parse 
language utility 
source id descriptor 
token list 
context_codes 

nodes 

token 
statement_types 
statement 

cross reference 
symbol 

declare type 
operator 

token_types 

op_ codes 

list 

block 

block_types 


Errors Diagnosed: 


Error 34 
Error 35 
Error 36 
Error 37 
Error 38 
Error 39 
Error 40 
Error 41 
Error 46 
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NAME: context 


Function: 


1. It records the context of certain 


the parse. 
Entry: 
context 
Usage: 


declare context entry ( ptr, 


call context ( identifier, 


identifiers found during 


ptr, fixed bin(15) ); 


block ptr, context_type ); 


1. identifier pointer to the token node 
representing the identifier. 
(input) 

2. block ptr pointer to the block node 


containing this token. (input) 


3. context_type type of cntext to be recorded for 
the identifier. (input) 


Programs that invoke this entry: 


attribute parse 

io _statement_parse 
on parse 

process entry 
reference parse 
statement_parse 
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Internal Procedures: 


none 


External Variables: 


none 


Internal Static Variables: 


none 


Programs Called: 


create context 


Include Files used: 


language utility 
source id descriptor 
context 
context_codes 

nodes 

block 


Errors Diagnosed: 


none 
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NAME: evaluate 


Function: 


1. It examines an expression involving two token constants and 
decides if they can be simplified into one token constant. 


Entry: 


evaluate 


Usage: 


declare evaluate entry ( bit(9) aligned, ptr, ptr ) 
retruns (ptr); 


return ptr = evaluate ( op code, first _ptr, second ptr 


1. op code indicates the kind of operation is 
involved. (input) 

2. first _ptr pointer to the first token 
constant. (input) 

3. second ptr pointer to the second token 
constant. (input) 

4. return ptr pointer to the token node 
representing the resulting operand. 
(output ) 


Programs that invoke this entry: 
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expression parse 


Internal Procedures: 


none 


External Variables: 


none 


Internal Static Variables: 


none 


Programs Called: 


bindec 

create operator 
create token 
token_to_ binary 


Include Files used: 


op_ codes 

operator 

token 

token_types 

language utility 
source id descriptor 


Errors Diagnosed: 
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none 
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SECTION IV 


DECLARATION PROCESSING 


THE CONTEXT PROCESSOR 


The context processor scans all the context nodes containing 
contextually derived attributes recorded during the parse. The 
context processor either augments the partial symbol table node 
created from declaration statements or creates new declarations. 
This activity constitutes the contextual and implicit 
declarations. 
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NAME: context _processor 


Function: 


It does the context processing of all the context entries on 
a block node. 


2. For each context entry in the block, it will try to match a 
previous declared symbol. 

3. If a previous declaration is found, the context declaration 
will be overwritten except for the parameter context. If no 
previous declaration is found, a symbol node will be created, 
and the context declaration copied on to the symbol node. 

4. If a condition context entry is found to match with a 
declaration not in the same block, a new declaration will be 
made. 

5. This program also expands the like attribute appearing 
anywhere in the block. 

Entry: 

context_processor 
Usage: 
declare context _processor entry ( ptr ); 
call context_processor ( block ptr ); 
1. block ptr pointer to the block node whose 


block. context chain is to be 
scanned. (input) 
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Programs that invoke this entry: 


context_processor 
semantic translator 


Internal Procedures: 


found 
an internal procedure to match a _ context 
entry with a previously declared symbol node 
entry. 

print 


an internal procedure to call the error 
message program error $no text. 


process like 
an internal procedure to process and expand 
the like attribute in a symbol node. 


External Variables: 


pll_stat_$root 


Internal Static Variables: 


none 


Programs Called: 


context_processor 
copy_expression$copy_sons 
create symbol 

error _$no_ text 

Lookup 
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Include Files used: 


semant 

language utility 
source id descriptor 
block 

nodes 

reference 

context 

declare type 

symbol 

token 


Errors Diagnosed: 


Error 69 
Error 74 
Error 74 
Error 75 
Error 119 
Error 120 
Error 133 
Error 189 
Error 214 
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THE DECLARATION PROCESSOR 


After contextual and implicit declarations have been 
processed, the declaration processor scans all the symbol table 
nodes to develop additional information about each variable. 
These include the preparation of accessing code: transforming 
parameters and automatic adjustible arrays into based references, 
calculation of boundary requirements, offset expressions, and 
array multipliers and virtual origins; the computation of storage 
requirements for each variable; and the generation of 
initialization code for some variables. 
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NAME: declare 


Function: 


This program establishes complete declarations for all _ the 
names used in the program. 


2. It calls declare structure to establish the complete 
declaration for all the members of the structure. 

3. It calls validate to get the default attributes, and to check 
for correctness of all the declared attributes. 

4. It creates descriptors for parameters and controlled 
variables. 

5. It calls get_size to determine the storage size and boundary 
requirement for the declaration. 

6. It generates a character string constant for condition 
constants. 

7. It establishes the complete declaration for the returns 
descriptor and the parameter descriptor for an _ entry 
declaration. 

8. For all the return values of all the entry constants in the 
block, it determines whether the attributes associated with 
the return values are the same. An integer will be created 
for use in the semantic translator if the attributes 
associated with the return values are not the same. 

9. Pointers are created for parameters appearing in more than 
one position in any entry statement. 

10. Allot_auto operators will be created in the prologue sequence 
for the block, for automatic variables with adjustible sizes. 

11. It calls expand initial to do the initialization of variables 
if necessary. 

Entry: 
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declare 


Usage: 
declare declare entry ( ptr ); 
call declare ( symbol ptr ); 
1. symbol ptr pointer to the symbol node to be 


processed by this program. (input) 


Programs that invoke this entry: 


builtin 

declare 

declare structure 
defined reference 
expand_assign 

expand primitive 
expression semantics 
io semantics 
operator semantics 
semantic translator 


Internal Procedures: 


none 


External Variables: 


pll_stat_$eis mode 
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Internal Static Variables: 


none 


Programs Called: 


compare declaration 
copy_expression 

create list 

create operator 

create statement$prologue 
declare 

declare _constant$char 
declare _constant$integer 
declare descriptor 
declare descriptor$parm 
declare integer 

declare pointer 

declare structure 

expand initial 

get_size 

Lookup 

semantic translator$abort 
semantic translator$error 
validate 


Include Files used: 


semant 

language utility 
source id descriptor 
symbol 

block 

reference 

list 

operator 
statement 
op_codes 
statement_types 
nodes 

token 
token_types 
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declare type 
boundary 
system 


Errors Diagnosed: 


Error 98 

Error 149 
Error 194 
Error 196 
Error 213 
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NAME : compare declaration 


Function: 
1. It compares the data type and the size of two declarations. 
2. If the two declarations are arrays, or structures, it calls 


itself recursively to compare the array dimensions, bounds, 
or attributes of members of the structure. 


Entry: 


compare declaration 


Usage: 


declare compare declaration entry ( ptr, ptr ) returns 
( bit(1) aligned ); 


success bit = compare declaration ( first _ptr, 
second ptr ); 


1. first _ptr pointer to either a reference node 
or a symbol node. (input) 

2. second ptr pointer to a symbol node. (input) 

3. success bit bit indicating if the comparison is 


successful. (output) 


Programs that invoke this entry: 


compare declaration 
declare 
expand_assign 
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operator semantics 


Internal Procedures: 


none 


External Variables: 


none 


Internal Static Variables: 


none 


Programs Called: 


compare declaration 
compare expression 


Include Files used: 


semant 

language utility 
source id descriptor 
array 

nodes 

picture image 
reference 

symbol 


Errors Diagnosed: 
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none 
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NAME: validate 


Function: 

1. It validates that all attributes on a declaration’ is 
compatible. 

2. It applies the default attributes to every declaration. 

3. It checks for completeness of certain attributes. 

4. It develops the packed attribute and the abnormal attribute. 


5. It validates that precision, scale, string size, and area 
size are within proper range. 


Entry: 
validate 
Usage: 
declare validate entry ( ptr ); 
call validate ( symbol ptr ); 
1. symbol ptr pointer to the symbol node to be 


processed by this program. (input) 


Programs that invoke this entry: 


declare_ 
declare structure 
expression semantics 
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Internal Procedures: 


evaluate 


inconsistent 


print 


system 


External Variables: 


none 


an internal procedure to evaluate the 
predicate of a default statement. 


an internal procedure to check for 
incompatible attributes in the = same 
declaration. 


an internal procedure to call the error 
message program semantic translator$error. 


an internal procedure to evaluate the system 
defaults. 


Internal Static Variables: 


none 


Programs Called: 


error _$no_ text 
merge attributes 
propagate bit 


semantic translator$error 


token_to_ binary 


Include Files used: 
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semant 

language utility 
source id descriptor 
default 

symbol 

symbol bits 
reference 

operator 

token 

token_types 

decoded token types 
list 

block 

op_ codes 

nodes 

system 

attribute table 
declare type 


Errors Diagnosed: 


Error 97 

Error 113 
Error 200 
Error 201 
Error 204 
Error 205 
Error 206 
Error 207 
Error 208 
Error 209 
Error 211 
Error 212 
Error 215 
Error 216 
Error 217 
Error 218 
Error 219 
Error 220 
Error 222 
Error 279 
Error 280 
Error 281 
Error 282 
Error 283 
Error 284 
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Error 285 
Error 357 
Error 360 
Error 367 
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NAME : merge attributes 


Function: 


1. It merges attributes from a template declaration into a 
target declaration. 


Entry: 


merge attributes 


Usage: 


declare merge attributes entry ( ptr, ptr ) returns ( 
bit(1) aligned ); 


success bit = merge attributes ( target symbol ptr, 
template symbol ptr ); 


1. target _symbol ptr pointer to the symbol node of the 
declaration to which the attributes 
are merged into. (input) 


2. template symbol ptr pointer to the symbol node of the 
declaration of the template. 
(input) 

3. success bit bit indicating if the merging 


process is successful. (output) 


Programs that invoke this entry: 


declare parse 
lang _util_ 
validate 
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Internal Procedures: 


none 


External Variables: 


none 


Internal Static Variables: 


none 


Programs Called: 


copy_expression 
create token 


Include Files used: 


symbol 

reference 

token 

token_types 

language utility 
source id descriptor 


Errors Diagnosed: 


none 
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NAME : get_size 


Function: 
1. It creates statements in the prologue sequence for adjustible 
bounds or adjustible sizes. 


2. It turns on the varying ref bit in the reference node for 
varying strings. 


3. It fills the length and c_length fields in the reference node 
for areas. 


4. It fills in the word size and c_word size fields in the 
symbol node. 


5. If the declaration is a picture, it calls declare picture to 
check the syntax of the picture string and to develop all its 
attributes. 

6. It calculates the boundary requirement for each declaration. 

7. If the declaration is an array, it calls get _array_size to 
find the total size and to compute the multipliers and 
virtual origin used by subscripted references to the array 
elements. 

8. If the declaration is a member of the structure, it stores 
the offset units in the c_ length field of the reference node 
temporarily. 


9. If the declaration is a structure, it tries to improve the 
offset units to the best possible unit. 


Entry: 


get_size 


Usage: 
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declare get_size entry (ptr); 


call get_size ( symbol ptr ); 


1. symbol ptr pointer to the symbol node to be 
processed by this program. 
(input/output) 


Programs that invoke this entry: 


declare 

declare structure 
declare temporary 
expand initial 
lang _util_ 
operator semantics 


Internal Procedures: 


addf 
an internal procedure to create an _— add 
operator. 

multf 


an internal procedure to create a mult 
operator. 


External Variables: 
pll_stat_$eis mode 


pll_stat_$util_abort 


Internal Static Variables: 
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none 


Programs Called: 


create operator 

create _statement$prologue 
declare constant$integer 
declare_integer 

declare picture 

get_array size 


Include Files used: 


language utility 
source id descriptor 
symbol 

block 

statement 
statement_types 
reference 

token 

operator 
op_codes 
boundary 

system 


Errors Diagnosed: 


Error 414 
Error 434 
Error 440 
Error 457 
Error 458 
Error 459 
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NAME: get_array size 


Function: 


1. It fills in the element size fields of the array node and 
expresses them in the best unit. 


2. It walks down the bound pairs and construct two multipliers 
for each bound pair. The descriptor multiplier is used only 
when the array is accessed as a parameter. It is expressed 
in bits if the array is packed, and in words if it is 
unpacked. The other multiplier is used by this procedure and 
is expressed in the unit given by offset_units. 


3. Multipliers are computed by the following rule: 


m(n) = element_size 
m(n-1) = (hb(n)-lb(n)+1) * m(n) 
m(n-2) = (hb(n-1)-lb(n-1)+1) * m(n-1) 
m(1) = (hb(2)-1b(2)+1) * m(2) 
4. The address of a subscripted element is: 
addr( a(i(1),i(2),...,i(n)) ) =B-V + (i(1)*m(1) + 
i(2)*m(2) + ... + i(n)*m(n)) 
where 


B = the beginning of storage for the array, that 
is, the offset of the first element, addr( 
a(i(lb),i(lb(2)),...,i(lb(n)) ) 

and 
V = the virtual origin, that is, the offset of 
the Oth element, addr( a(0,0,...,0) ) 


5. The first multiplier is the element size. It is converted to 
bits when used as the descriptor multiplier of a packed, 
array. 


6. It loops down the bound pairs and develop the other 
multiplirs. 


7. (It creates statements in the prologue sequence if any 
multiplier is an expression. 


8. The last multiplier gives the total size of the array, this 
total size is recorded in the symbol node. 
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Entry: 


get_array_ 


Usage: 


size 


declare get_array size entry (ptr); 


call get_array size ( symbol ptr, offset_unit ); 


1. symbol ptr 


2. offset_unit 


pointer to the symbol node with the 
dimensioned attribute. (input) 


unit in which the offset is 
expressed. (input) 


Programs that invoke this entry: 


get_size 


Internal Procedures: 


addf 


assignf 


interleaved 


an internal procedure to create an add 
operator. 


an internal procedure to create an assign 
operator in the prologue sequence. 


an internal procedure to distribute the 
bounds, multipliers, and virtual origins of a 
dimensional structure onto all its contained 
members at every level. 
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multf 


subf 


virtue 


an internal procedure to create a mult 
operator. 


an internal procedure to create a sub 
operator. 


an internal procedure to add a term to the 
virtual origin. 


External Variables: 


pll_stat_$eis mode 
pll_stat_$util_error 


Internal Static Variables: 


none 


Programs Called: 


copy_expression 

create array 

create bound 

create operator 

create statement$prologue 
declare _constant$integer 
declare integer 
token_to_binary 


Include Files used: 


language utility 
source id descriptor 
array 
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reference 
symbol 
token 
token_types 
block 
operator 
op_ codes 
statement 
statement_types 
boundary 
nodes 
system 


Errors Diagnosed: 


Error 168 
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NAME: declare_structure 


Function: 
1. It scans the structure to determine the boundary, packing, 
and size required fby each member. 


2. It computes the boundary, packing, and size required by the 
level one structure. 


3. It then computes the offset for each member of the structure. 


Entry: 
declare structure 
Usage: 
declare declare structre entry (ptr); 
call declare structure ( symbol ptr ); 
1. symbol ptr pointer to the symbol node to be 


processed by this program. (input) 


Programs that invoke this entry: 


declare 


Internal Procedures: 
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get_structure size 


initialize 


structure scan 


an internal procedure to compute the offset 
of each structure member, to determine the 
level one structure size, and to call the 
internal procedure initialize to initialize 
each structure member, if necessary. 


an internal procedure to initialize all 
members of the structure, if necessary. 


an internal procedure to propagate the 
refer_extent, exp extent, and star extent 
bits upward, to determine the boundary 
required by each structure member, and the 


packing of the structure. 


External Variables: 


pll_stat_$eis mode 


Internal Static Variables: 


none 


Programs Called: 


copy_expression 

create operator 

create statement$prologue 
declare_ 

declare _constant$integer 
declare descriptor 
declare _descriptor$param 
declare pointer 

expand initial 

get_size 

offset_adder 

semantic translator$error 
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validate 


Include Files used: 


semant 

language utility 
source id descriptor 
symbol 

array 

block 

reference 
operator 
statement 

op_ codes 

nodes 
statement_types 
boundary 

list 

system 


Errors Diagnosed: 


Error 210 
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INITIALIZATION 


The declaration processor creates statements in the prologue 
sequence of the declaring blocks to do the initialization of 
variables. Variables that require initialization includes file 
constants, varying strings, areas, in addition to variables with 
the initial attribute. 
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NAME : expand initial 


Function: 

1. It initializes a file constant by creating an internal static 
file state block, and a file attribute block. 

2. It initializes varying strings to null strings. 

3. It initializes areas to "empty". 

4. It creates a statement to initialize scalar variables. 

5. For array initialization, it creates a subscript. For one 
dimension arrays, it creates codes to initialize the 
subscript to zero, increments it, and uses it as a_ subscript 
of the array, while the initial values are assigned one by 
one to the elements of the array. 

6. For multi-dimensional arrays, a one dimensional vector whose 
number of elements is equal to the number of dimensions of 
the multi-dimensional array is created. Initialization is 
done in two steps. First the one dimensional array is 


initialized, then loop and join operators are created to 
initialize the multi-dimensional array. 


Entry: 


expand initial 


Usage: 


declare expand initial entry ( ptr, ptr, ptr ); 


call expand initial ( symbol _ptr, statement _ptr, 
locator qualifier ); 
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1. symbol ptr pointer to the symbol node to be 
processed by this program. (input) 


2. statement_ptr pointer to the statement node or 
block node containing this 
declaration. (input) 


3. locator qualifier locator qualifier of the 
expression, if any. (input) 


Programs that invoke this entry: 


alloc semantics 
declare 
declare structure 


Internal Procedures: 


addf 
an internal procedure to create an add 
operator. 


assign initial 
an internal procedure to assign the values of 
an initial attribute to a vector. 


assignf 
an internal procedure to create an assign 
operator. 


Link father 
an internal procedure to create a list node 
to structure qualify members of _ the 
structure. 


make statement 
an internal procedure to create a statement 
node either in the prologue sequence or in 
the main sequence of the block. 


multf 


an internal procedure to create a mult 
operator. 
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subf 


an internal procedure 
operator. 


External Variables: 


none 


Internal Static Variables: 


none 


Programs Called: 


copy_expression 

create array 

create bound 
create cross reference 
create label 

create list 

create operator 

create reference 

create statement 

create statement$prologue 
create symbol 

create token 

declare constant$bit 
declare _constant$char 
declare constant$integer 
declare integer 

declare pointer 

get_size 

semantic translator$abort 
token_to_ binary 


Include Files used: 
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to 


create a sub 


order number 


semant 

language utility 
source id descriptor 
cross reference 
symbol 

boundary 

system 

label 

reference 

token 
token_types 
declare type 
statement 

block 
statement_types 
op_codes 
operator 

array 

list 

nodes 


Errors Diagnosed: 


Error 264 
Error 292 
Error 442 


Chapter5. runoff 
1137.9rew 09/03/74 1137.9 769608 


SECTION V 


SEMANTIC TRANSLATION 
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09/03/74 


order number 


AN OVERVIEW 


The semantic translator scans over the internal 
representation of the program and transforms the internal 
representation to reflect the attributes declared with each 
variable. Thus the semantics of the variables will be used by 
this phase of the compiler to produce a more sophisticated and 
meaningful internal representation of the program ready for the 
optimizer and the code generator. 
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NAME: semantic translator 


Function: 

1. It calls the context_processor to process all the context 
information recorded during the parse. 

2. For each block, starting from pl1_stat_$root, going down for 
its son block and then its brother block, the program 
performs the following jobs: 

a. It collects all the information necessary to determine 
whether a_ block can be quick. 

b. It goes down the chain block.declaration and calls 
declare to process all the symbols in the chain. 

c. It calls expression semantics to process all the 
statements in the main sequence of the block, and then 
all the statements in the prologue sequence of the block. 


3. It goes over the block nodes and determine if they are quick. 


Entry: 


semantic_translator 


Usage: 


declare semantic translator entry; 


call semantic translator; 


Programs that invoke this entry: 


pll 
v2pl1_semant_ 
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Entry: 


semantic _translator$abort 


This entry is called when a fatal error occurs’ in 
declaration processing or semantic translation. Recovery 
consists of deleting the offending statement from the program by 
transforming it into a null statement. Illegal declaration 
remain in the program. The error message program error_ or 
error _$no text is called, and control is transferred to start 
process the next statement or the next symbol. 


Usage: 


declare semantic translator$abort entry ( fixed 
bin(15), ptr ); 


call semantic translator$abort ( error_number, 
error pointer ); 


1. error_number error number. (input) 


2. error pointer pointer to an operand used by the 
error message program. (input) 


Programs that invoke this entry: 


alloc semantics 
builtin 

declare 

defined reference 
do semantics 
expand_assign 
expand infix 
expand initial 
expand primitive 
expression semantics 
function 

generic selector 
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Lookup 
match_arguments 
operator semantics 
semantic translator 
subscripter 
v2pl1_semant_ 


Entry: 


semantic_translator$error 


This entry is called when a non-fatal error occurs during 
the semantic translation or declaration processing. The error 
message program error. or error _$no_ text is called to issue a 
warning, and control is transferred to continue process the same 
statement or the same symbol. 


Usage: 


declare semantic translator$error entry ( fixed 
bin(15), ptr ); 


call semantic translator$error ( error_number, 
error pointer ); 


1. error _number error number. (input) 


2. error pointer pointer to an operand used by the 
error message program. (input) 


Programs that invoke this entry: 


builtin 

declare 

declare structure 
defined reference 
expression semantics 
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function 

io data list semantics 
io semantics 

semantic translator 
v2pl1_semant_ 

validate 


Entry: 


semantic_translator$call_es 


This entry is called by prepare symbol table in the code 
generator, when it wants to process an expression hanging off a 
symbol node. 


Usage: 


declare semantic _translator$call_es entry ( ptr, ptr, 
ptr, label ) returns (ptr); 


return_tree = semantic translator$call_es ( cur _block, 
statement_ptr, input tree, abort label ); 


1.  cur_block pointer to the block node 
containing this operand. (input) 


2. statement_ptr pointer to the statement node 
containing this operand. (input) 


3. input_tree pointer to the operand to- be 
processed by this program. (input) 


4. abort label the label to be transferred to if 
this program is aborted for any 
reason. (input) 


5. return tree pointer to the operand returned by 
this program. (output) 
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Programs that invoke this entry: 


prepare symbol table 
v2pl1_semant_ 


Internal Procedures: 


process label 
an internal procedure to 


labels in the label list, 


process all the 


and to issue 


warnings if the previous statement is a goto 


statement and there are 
current statement. 


External Variables: 


pll_stat_$LHS 
pll_stat_$abort_ label 
pll_stat_$cur_statement 
pll_stat_$debug semant 
pll_stat_$error_ flag 
pll_stat_$index 
pll_stat_$last_severity 
pll_stat_$multi_ type 
pll_stat_$node_uses 
pll_stat_$profile length 
pll_stat_$quick_pt 
pll_stat_$root 
pll_stat_$st_length 
pll_stat_$st_start 
pll_stat_$statement_id 
pll_stat_$stop id 
pll_stat_$util_abort 
pll_stat_$util_error 


Internal Static Variables: 


abort a label indicating where the 
go if there is a_ fatal 
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labels on the 


control should 
error occuring 


order number 


had_error 


Programs Called: 


context_processor 


convert 

debug 

declare 

error 

error_ 

error _$no_ text 


expression semantics 


ioa_ 


anywhere in the declaration processing of 
symbols, or the semantic processing of 
statements. 


a bit indicating if an error has occurred in 
the processing. It is used only by the 
semantic _translator$call_es entry. 


semantic translator$abort 
semantic translator$error 


Include Files used: 


quick_info 
semant 


language utility 
source id descriptor 


block 
block_types 
declare type 
operator 
semantic bits 
list 

symbol 
reference 
statement 
statement_types 
nodes 

token 
token_types 
system 
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Errors Diagnosed: 


Error 56 
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QPERATOR PROCESSING 


When an operator is encountered, the attributes of the 
operands are examined, and from these attributes, the attributes 
of the result of the operation are derived. The result of an 
operator is represented in the program as a temporary node. 
These temporary nodes may be operands of other operators, and the 
attributes of these temporary nodes may in turn be used to derive 
the properties of yet other temporary nodes. 


Some operators may be modified, and some operators may be 
changed to a std call operator to invoke a library routine if the 
semantics warrants it. 
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NAME: operator semantics 


Function: 


1. It goes down the operator node and extracts the data types 
from the operands. 


2. For most operators, it determines the type, precision, scale 
of the result, and creates a _ temporary node to hold the 
result. It also converts each operand to the appropriate 
type, precision, and scale in order to produce the result. 


3. For the exponentiation operator, it determines from the 
operands either to pass along the exponentiation operator, or 
to create a std call operator to call a libraray subroutine. 

cxpl1_ 
dcxpl_ 

Cxp2_ 
dcxp2_ 
decimal _exp_ 
xp22_ 
dxp12_ 
cxp12_ 
dcxp12_ 


4. Fr the assignment operator, the following steps are taken: 

a. If the right side is a constant, convert it to the type 
of the left side, unless the left side has no type. Then 
the right side is converted to the type represented by 
the constant itself. 

b. If the left side has no type, it is converted to the type 
of the right side. 

c. If the assignment is to a char(*) or bit(*) return 
parameter, a statement will be created to make a 
descriptor for the return parameter. 

d. In certain cases assignments of x=0 are transformed into 
an operator assign zero(x). 

f. If the right side is an operator whose output temporary 
has the same attributes as the left side, replace the 
temporary with a reference to the left side. 

g. Assignments of a pointer to an offset and vice versa are 
transformed into off _fun operator or ptr_fun operator. 

h. Area assignment is converted into a call to area $assign 
( addr(al), addr(a2) ); 
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10. 


For the std call operator, the procedure function will be 
invoked. 


For the std entry operator, a goto statement is created 
before and a null statement is created after the statement 
containing the std entry operator. If any parameter or 
return value appears in a differenct position in another 
entry statement, then an assignment statement will be created 
so that the parameter or return value are made to be 
qualified by automatic pointers. If the block has multiple 
return types, an assignment statement is created so that it 
is possible to determine by means of an automatic integer 
which entry is invoked. An ex_prologue operator is created 
with every std entry operator. 


For a return_value operator with multiple return values, it 
is necessary to create a number of statements best 
illustrated by the following sequence: 


if entry indicator *= 1 then’ goto tlabell; 
entry_1 return value = return operand; 
return; 

labell: 5 


if entry_indicator “= n then goto labeln; 
entry_n_return_value = return_operand; 
return; 

labeln: ; 


It is sometimes possible to cause a_ fatal error by the 
processing of one of the generated statements, in that case, 
that statement will be transformed into a signal statement. 


For input/output operators, the procedure io semantics will 
be invoked. 


For do fun operators, the procedure do semantics will be 
invoked. 


For allot_based and free based operators, the procedure 
alloc semantics will be invoked. 
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Entry: 


operator semantics 


Usage: 


declare operator _semantics entry ( ptr, ptr, ptr, 
bit(36) aligned ) returns (ptr); 


return tree = operator semantics ( block_ptr, 
statement_ptr, input_tree, context_bits ); 


1. block ptr pointer to the block node 
containing this statement. (input) 

2. statement_ptr pointer to the statement node 
containing this operator. (input) 

3. input_tree pointer to the operator node that 
is to be processed by 
Operator semantics. (input) 

4. context_bits bits containing special information 
about this operator node. 
(input/output) 

5. return tree pointer to the operator node 
returned by operator semantics. 
(output) 


Programs that invoke this entry: 


alloc semantics 
builtin 

do_ semantics 

expand infix 

expand prefix 
expression semantics 
operator semantics 
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Internal Procedures: 


convert_relationals 


converter 


extract 


make 


prepare 


print 


External Variables: 


an internal procedure used to force’ proper 
conversions of operands of relational 
operators. 


an internal procedure used to- convert 
operand(2) and operand(3) of the operator 
node to their appropriate type. 


an internal procedure used to extract data 
types and useful pointers of all the operands 
of the operator node. 


an internal procedure used to create an 
Operator node and a statement node, and 
attach the operator node to the root of the 
statement node. 


an internal procedure used to- create 
statements for any expression found in the 
return value operator, when there are 
multiple return types. 


an internal procedure used to call the error 
message program semantic translator$abort. 


pll_stat_$abort label 
pll_stat_$cur_ statement 


pll_stat_$error_ flag 
pll_stat_$multi_type 


pll_stat_$root 


Internal Static Variables: 
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none 


Programs Called: 


alloc semantics 
compare declaration 
convert 

convert$to_ target 
convert$validate 
copy_expression 
create label 

create list 

create operator 
create reference 
create statement 
create symbol 

create token 

declare 

declare constant 
declare _constant$integer 
declare temporary 

do semantics 
expand_assign 
expression semantics 
free node 

function 

get_size 

io semantics 
operator semantics 
refer_extent 
reserve$declare lib 
semantic translator$abort 
share expression 


Include Files used: 


semant 

language utility 
source id descriptor 
array 

symbol 

symbol bits 

operator 
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mask 

label 

list 

block 
block_types 
statement 
reference 
semantic bits 
op_codes 
statement_types 
nodes 

system 

token 
token_types 
declare type 
decoded _token_types 


Errors Diagnosed: 


Error 50 
Error 51 
Error 52 
Error 53 
Error 78 
Error 134 
Error 135 
Error 180 
Error 198 
Error 223 
Error 227 
Error 229 
Error 435 
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QPERAND PROCESSING 


Operands may be constants, or references. References may be 
simple references, subscripted references, structure qualified 
references, locator qualified references, or function references. 
References may further be defined on other references. The 
semantic translator finds the correct declaration for each 
variable, builds and processes the length expression, offset 
expression and qualifier expression for each variable. When 
these accessing expressions are fully processed, the code 
generator can produce codes to access the data at runtime. 
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NAME: 


expression semantics 


Function: 


1. It processes the operator nodes in the following manner: 


a. 
b. 
rer 


d. 


It calls io semantics for io opcodes. 

It calls format_list_ semantics for format opcodes. 

It gets the proper pointer for locator qualification for 
refer and bit pointer opcodes. 

It calls itself recursively to process all the operands 
of the operator node. After all the operands are 
processed, it calls operator semantics to produce the 
appropriate temporary result. If any of the operands is 
an aggregate reference or aggregate expression, it will 
invoke the aggregate package expand assign, expand infix 
or expand prefix to do further processing of _ the 
operator. 


2. It processes the token node and the reference nodes in the 
following manner: 


a. 


b. 
Ge 


ub +e 


Entry: 


DRAFT: 


It converts the constants if there are default statements 
in the block. Otherwise, it leaves the constants alone. 
It calls lookup to get the proper symbol node pointer. 

If the symbol has the builtin attribute, it calls 
builtin. 

If the symbol has the generic attribute, it calls 
generic selector. 

It processes the qualifier. 

It processes the subscripts. It determines if the 
reference is a scalar, a cross-section, or an array 
reference. It calls subscripter to compute the offset. 
If the symbol has the defined attribute, it calls 
defined reference to compute the offset. 

It processes the offset field of the reference node. 

It processes the length field of the reference node. 

If the symbol has the entry attribute, it calls function. 
It turns on the aggregate bit in context_bits if the 
reference is a structure or an array. It then goes 
through an algorithm to determine whether the LHS in RHS 
bit in the statement node should be turned on. 
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expression semantics 


Usage: 


declare expression s 
(36) aligned ) returns (ptr); 


emantics entry ( ptr, ptr, ptr, bit 


return tree = expression semantics ( block ptr, 


statement_ptr, input _tree, con 


1. block _ptr 


2. statement_ptr 


3. input tree 


4. context_bits 


5. return tree 


text_bits ); 


pointer to the block node 
containing this statement. (input) 


pointer to the statement node 
containing this operand. (input) 


pointer to the operand that is to 
be processed by 
expression semantics. (input) 


bits containing special information 
about this operand. (input/output) 


pointer to the operand returned by 
expression semantics. (output) 


Programs that invoke this entry: 


alloc semantics 
builtin 

declare descriptor 
defined reference 
expand assign 

expand infix 

expand initial 
expand primitive 
expression semantics 
function 

generic selector 

io data list semantics 
io semantics 
operator semantics 
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semantic translator 
subscripter 
v2pl1_semant_ 


Internal Procedures: 


print 


an internal procedure used to call the error 
message program semantic_translator$abort. 


External Variables: 


pll_data$builtin_name 
pll_stat_$LHS 
pll_stat_$index 
pll_stat_$locator 
pll_stat_$root 


Internal Static Variables: 


none 


Programs Called: 


builtin 

convert 
convert$to_ integer 
convert$to_ target 
copy_expression 
create cross reference 
create list 

create operator 
create reference 
create symbol 
create token 
declare 

defined reference 


DRAFT: SUBJECT TO CHANGE 5-203 


order number 


expand assign 

expand infix 

expand prefix 

expand primitive 
expression semantics 
format_list_semantics 
free node 

function 

generic selector 

io semantics 

Lookup 

operator semantics 
propagate bit 

semantic translator$abort 
semantic translator$error 
share_expression 

simplify offset 
subscriptor 

validate 


Include Files used: 


semant 

language utility 
source id descriptor 
block 
block_types 
builtin table 
cross reference 
declare type 
label 

list 

nodes 

op_ codes 
operator 
reference 
semantic bits 
statement 
symbol 

symbol bits 
system 

token 
token_types 
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Errors Diagnosed: 


Error 
Error 
Error 
Error 
Error 
Error 
Error 
Error 
Error 
Error 
Error 
Error 
Error 
Error 
Error 
Error 
Error 
Error 
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63 
64 
65 
66 
67 
68 
70 
71 
72 
73 
77 
80 
83 
102 
121 
137 
145 
291 
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NAME : simplify offset 


Function: 


1. It attempts to reduce the precision of the length expression, 


if possible. 


2. It attempts to simplify the offset expression into an 


expression part and a 


constant part. The expression part 


will be stored in reference.offset, and the constant part 
will be stored in reference.c offset. 


3. The expressions of the form 


constant 


expression + constant 
expression - constant 
constant + expression 
constantl * constant2 
constantl * (expression + constant2) 
constantl * (expression - constant2) 
constantl * (constant2 + expression) 
will be simplified by this program. 


Entry: 


simplify offset 


Usage: 


declare simplify offset entry ( ptr ); 


call simplify offset ( tree ); 


1. tree 


DRAFT: SUBJECT TO CHANGE 


pointer to the reference node whose 
offset expression and _ length 
expression are to be processed by 
this program. (input) 
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Programs that invoke 


builtin 

expand primitive 
expression semantics 
function 


Internal Procedures: 


check_addr 


check_char_units 


check_exp 


fb1_ const 


fb value 


fix_exp 


free exp 


free op 


this entry: 


an internal procedure to improve code 
generated for an unaligned item locator 
qualified by the addr of another item. 


an internal procedure to ensure unaligned 
binary numbers or pointers not to have 
character offset units. 


an internal procedure to determine whether an 
offset expression occurs as part of the 
length expression. 


an internal procedure to determine if a 
declaration is a single word fixed binary 
constant. 


an internal procedure to determine if a 
declaration is a fixed binary real constant 
or fixed binary real aligned variable. 


an internal procedure to reduce precision of 
the temporary of an expression to default 
precision, if possible. 


an internal procedure to free the storage for 
an expression. 


an internal procedure to free an operator 
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node. 


in_expression 
an internal 


the internal 


procedure check exp to determine whether an 


expression appears 


expression. 


External Variables: 


none 


Internal Static Variables: 


none 


Programs Called: 


compare expression 
convert$to_integer 
copy_expression 

create operator 

declare _constant$integer 
declare temporary 

free node 

share expression 


Include Files used: 


semant 

language utility 
source id descriptor 
operator 

reference 

symbol 

array 

op codes 
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of another 


order number 


nodes 
system 
boundary 


Errors Diagnosed: 


none 
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NAME : offset_adder 


Function: 


1. It combines one set of offset with another set of offset. 


Entry: 


offset_adder 


Usage: 


declare offset_adder entry ( ptr, fixed bin(31), fixed 
bin(3), ptr, fixed bin(31), fixed bin(3), bit(1) ); 


call offset_adder ( offset_1, c_offset_l, 
unit_of offset 1, offset 2, c_ offset 2, unit_of offset 2, 
no improve bit ); 


1. offset_1 pointer to the first offset 
expression. (input/output) 

2. c_offset_1 first constant offset. 
(input/output) 

3. unit_of offset _1 unit in which offset_1 and 
c_offset_1 are measured. 
(input/output) 

4. offset 2 pointer to the second offset 
expression. (input) 

5. c_offset 2 second constant offset. (input) 

6. unit_of offset 2 unit in which offset 2 and 


c_offset_2 are measured. (input) 
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7. no _improve bit bit indicating whether the offsets 
should be improved to the _ best 


unit. (input) 


Programs that invoke this entry: 


builtin 

declare structure 
defined reference 
subscripter 


Internal Procedures: 


get_ptr 


an internal procedure to 


mod bit and mod byte 
modifiy the mod _word 
combining the two offsets. 


External Variables: 


pll_stat_$eis mode 


Internal Static Variables: 


none 


Programs Called: 


create operator 
declare _constant$integer 
free node 


DRAFT: SUBJECT TO CHANGE 5-211 


eliminate the 
operators, and to 
operator before 


order number 


Include Files used: 


semant 

language utility 
source id descriptor 
operator 

nodes 

op_codes 

boundary 

system 


Errors Diagnosed: 


none 
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NAME: Lookup 


Function: 


1. Given an identifier, it searches through the list of symbol 
nodes to find the applicable declaration associated with the 
identifier. This list of symbol nodes are chained first 
through token.declaration, and thereafter through 


symbol.multi_use. 


2. Fully qualified references are considered applicable. 


3. Partially qualified references are considered applicable 


if 


no better reference or no other partially qualified 


references can be found. 


4. It creates a cross reference node for the identifier. 


Entry: 

Lookup 
Usage: 

declare lookup entry ( ptr, ptr, ptr, ptr, bit (36) 
aligned ) returns (bit(1) aligned) ; 

success bit = lookup (block ptr, statement_ptr, 
input_tree, symbol ptr, context_bits ); 
1. block ptr pointer to the block node 


containing this statement. (input) 


2. statement ptr pointer to the statement 


node 


conatining this operand. (input) 


3. input tree pointer to the operand’ to 
processed by lookup. (input) 


be 
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symbol _ptr 


context bits 


success bit 


context_processor 
declare 

defined reference 
expression semantics 
function 
prepare symbol_table 
v2pl1_semant_ 


Internal Procedures: 


none 


External Variables: 


none 


Internal Static Variables: 


none 
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pointer to the symbol node for the 
operand. (output) 


bits containing the special 
information about this operand. 
(output) 


bit indicating if lookup has 
successfully found the symbol node 
corresponding to the input tree. 
(output) 


Programs that invoke this entry: 


5-214 order number 


Programs Called: 


create cross reference 
semantic translator$abort 


Include Files used: 


semant 

language utility 
source id descriptor 
symbol 

label 

reference 
semantic bits 
block 

statement 

token 

list 

cross reference 
nodes 


Errors Diagnosed: 


Error 221 
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NAME : subscripter 


Function: 


It gathers all the subscripts from the subscript list. If 
the subscript is a constant, it gets its value and ascertain 
that the constant is within the subscript range. If the 
subscript is a variable or expression, it converts the result 
to integer type. 


2. If the subscriptrange prefix is on, it creates a _ bound ck 
operator. 

3. If all the subscripts are constants, it will yield a constant 
offset as the partial result, otherwise it will yield an 
expression offset as the partial result. 

4. It calls offset_adder to combine the partial offset with the 
offset produced by the declaration processor. 

Entry: 

subscripter 
Usage: 


declare subscripter entry ( ptr, ptr, ptr, ptr, ptr ) 


returns (ptr); 


return_ptr = subscripter (  cur_block, statement_ptr, 


input_tree, subscript ptr, symbol ptr ); 


1 


2. 


cur_block pointer to the block node 
containing this operand. (input) 


statement_ptr pointer to the statement node 
containing this operand. (input) 
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3. input_tree 


4. subscript ptr 


5. symbol ptr 


6. return tree 


pointer to the operand to_- be 
processed by subscripter. (input) 


pointer to the list of subscripts. 
(input) 


pointer to the symbol node for the 
operand. (input) 


pointer to the operand returned by 
subscripter. (output) 


Programs that invoke this entry: 


defined reference 
expand primitive 


expression semantics 


function 


Internal Procedures: 


addf 


multf 


print 


subf 


External Variables: 


an internal procedure to create an add 
operator. 


an internal procedure to create a_- mult 
operator. 


an internal procedure used to call the error 
message program semantic_translator$abort. 


an internal procedure to create a sub 
operator. 
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pll_stat_$eis mode 


Internal Static Variables: 


none 


Programs Called: 


convert$to_ integer 

copy expression 

create bound 

create list 

create operator 

declare _constant$integer 
expression semantics 
offset_adder 

semantic _translator$abort 
token_to_ binary 


Include Files used: 


semant 

language utility 
source id descriptor 
block 

label 

symbol 

array 

reference 
statement 

list 

token 

operator 
op_codes 
boundary 

nodes 
token_types 
declare type 
semantic bits 
system 
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Errors Diagnosed: 


Error 81 
Error 82 
Error 84 
Error 184 
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NAME: function 


Function: 


1. It does the semantic processing of all the arguments. 


2. It determines whether descriptors are needed for the 
arguments. 


3. It determines whether an argument should be passed by-value 
or by-reference. 


4. It has an algorithm to handle the special case when an 
argument is a cross section reference. 


5. It does the semantic processing of the returns argument. 


6. It creates a desc size operator for the returns argument if 
necessary. 


7. It creates a statement for the std call operator if the 
returns parameter has the star_extents and/or the varying 


attribute. 
Entry: 
function 
Usage: 


declare function entry ( ptr, ptr, ptr, ptr, bit(36) 
aligned ) returns (ptr); 


return tree = function (cur block, statement ptr, 
input_tree, symbol ptr, context_bits ); 


1.  cur_block pointer to the block node 
containing this operand. (input) 
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2. statement_ptr 


3. input tree 


4. symbol ptr 


5. context _bits 


6. return tree 


pointer to the statement node 
containing this operand. (input) 


pointer to the operand to_- be 
processed by function. (input) 


pointer to the symbol node for the 
operand. (input) 


bits containing special information 
about this operand. (input/output) 


pointer to the operand returned by 
this program. (output) 


Programs that invoke this entry: 


expression semantics 
operator semantics 


Internal Procedures: 


print 


an internal procedure used to call the error 
message programs semantic _translator$abort 
and semantic _translator$error. 


prop bit 


an internal procedure used to turn on an 
attribute bit throughout a structure. 


External Variables: 
pll_stat_$node_uses 


pll_stat_$quick pt 


Internal Static Variables: 
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none 


Programs Called: 


check_star_extents 
copy_expression 

create array 

create bound 

create list 

create operator 

create reference 

create statement 

create symbol 

declare _constant$integer 
declare descriptor 
declare temporary 
expression semantics 
Lookup 

match_arguments 

semantic translator$abort 
semantic translator$error 
share expression 

simplify offset 
subscripter 


Include Files used: 


semant 

language utility 
source id descriptor 
array 

block 

declare type 
list 

nodes 

op_ codes 
operator 
quick_info 
reference 
semantic bits 
statement 
statement_types 
symbol 
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symbol _ bits 
system 
token 
token_types 


Errors Diagnosed: 


Error 47 
Error 85 
Error 86 
Error 88 
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NAME : generic selector 


Function: 


1. It does the semantic processing of all the arguments of the 
generic reference and gets the symbol pointer for each 


argument . 


2. It calls the internal procedure compare generic for 


argument for each corresponding argument selector in every 


alternative. 


3. It selects the proper entry reference when all the arguments 


match a particular selector. 


Entry: 


generic selector 


Usage: 


declare generic selector entry ( ptr, ptr, ptr, ptr, 


bit(36) alligned ) returns (ptr); 


return_tree = generic selector ( cur_block, 


statement_ptr, input_tree, subscript _ptr, context _bits ); 


1. cur_block pointer to the block 
containing this operand. (input) 

2. statement_ptr pointer to the statement 
containing this operand. (input) 

3. input_tree pointer to the operand’ to 
processed by this program. (input) 

4. subscript list pointer to the list of subscripts. 
(input) 
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5. context _bits bits containing special information 


about this operand. 


(input) 


6. return tree pointer to the operand returned by 


this program. 


Programs that invoke this entry: 


expression semantics 


Internal Procedures: 


compare_generic 


an internal procedure to 
argument matches 
specific argument 


declaration. 


External Variables: 


none 


Internal Static Variables: 


none 


Programs Called: 


copy expression 

create operator 

create symbol 

expression semantics 
semantic translator$abort 
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determine if an 
description for a 


the generic 


order number 


Include Files used: 


semant 

language utility 
source id descriptor 
semantic bits 
list 

symbol 

reference 

token 
token_types 
nodes 

statement 
statement_types 
operator 

op codes 

array 

declare type 
picture image 


Errors Diagnosed: 


Error 65 
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NAME : match _arguments 


Function: 


It is called by the procedure function to determine if an 
argument matches the corresponding parameter description, so 
that the argument can be passed by-reference instead of 
by-value. 


2. It may call itself recursively if both the argument and the 
parameter are aggregate references so that lower level 
mismatches are also taken into consideration. 

Entry: 

match _arguments 
Usage: 


declare match arguments entry ( ptr, ptr ) returns 


(bit(1) aligned) ; 


success bit = match_arguments ( first _ptr, second ptr 

first_ptr pointer to the first operand. 
(input) 

second ptr pointer to the symbol node of the 


second operand. (input) 


success bit bit indicating if the two operands 
match. (output) 


Programs that invoke this entry: 


DRAFT: SUBJECT TO CHANGE 5-227 order number 


function 
match arguments 


Internal Procedures: 


none 


External Variables: 


none 


Internal Static Variables: 


int_index 


number indicating the depth of a structure 


the program is operating on. 


parent_is scalar 


bit indicating if the parent is a scalar. 


Programs Called: 


compare expression 
match arguments 
semantic translator$abort 


Include Files used: 


semant 

language utility 
source id descriptor 
array 

nodes 

picture image 
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reference 
symbol 


Errors Diagnosed: 


Error 269 
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NAME : make_non_quick 


Function: 


1. It walks through an expression tree, if it finds a _ function 
reference to an internal procedure, it makes the internal 
procedure non-quick. 


Entry: 
make_non_quick 
Usage: 
declare make non quick entry (ptr) ; 
call make _non quick ( tree ); 
1. tree pointer to the expression to be 


processed by this program. (input) 


Programs that invoke this entry: 


check_star_extents 


io data list semantics 


Internal Procedures: 


none 
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External Variables: 


none 


Internal Static Variables: 


none 


Programs Called: 


none 


Include Files used: 


reference 
list 
operator 
symbol 
block 
nodes 

op_ codes 


Errors Diagnosed: 


none 
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NAME : builtin 


Function: 


1. It does the semantics processing of all builtin functions. 


2. It checks whether a builtin function is called with an 
acceptable number of arguments. 


3. It processes all the arguments and extracts the data type and 
the pointer of all the arguments. 


4. If an aggregate reference is found among any of the 
arguments, it determines if the result of the builtin should 
be an aggregate. 


5. It calls expand arguments, an internal procedure to _ handle 
those aggregate builtin references. 


6. It checks to make sure whether all the arguments have 
acceptable data types. converting them if necessary. 


7. For individual builtin functions, the work is rather straight 
forward, it creates either an operator node with the 
appropriate temporary, or it creates a std call operator to 
call a runtime library subroutine. 


Entry: 


builtin 


Usage: 


declare builtin entry ( ptr, ptr, ptr, ptr, ptr, 
bit(36) aligned ) returns (ptr); 


return tree = builtin (  cur_block, statement_ptr, 
input_tree, subscript_list, builtin symbol, context_bits ); 
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1. cur_block 


2. statement_ptr 


3. input tree 


4. subscript list 


5. builtin symbol 


6. context _bits 


7. return tree 


pointer to the block containing 
this builtin function. (input) 


pointer to the statement node 
containing this builtin function. 
(input) 


pointer to the builtin function to 
be processed. (input) 


pointer to the list of arguments 
for this builtin function. (input) 


pointer to the symbol node for this 
builtin function. (input) 


bits containing special information 
for this builtin function. 
(input/output) 


pointer to the operand returned by 
this procedure. (output) 


Programs that invoke this entry: 


builtin 


expression semantics 


Internal Procedures: 


check_strings 


convert_arg 


expand arguments 


an internal procedure to make sure that all 
the members of the structure used as_ the 
argument to the string builtin have the same 
kind of string. 


an internal procedure to convert an operand 
to a certain data type. 


an internal procedure to expand all _ the 
aggregate arguments to the builtin function. 
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make_assignment 


an internal procedure to create an operator 


node and a statement node and to 
to the root of the statement. 


operator node 


merge 


attach the 


an internal procedure to combine the results 


of the expanded 


function. 


External Variables: 


pll_stat_$builtin_name 
pll_stat_$cur_statement 
pll_stat_$eis mode 


Internal Static Variables: 


none 


Programs Called: 


builtin 
check_star_extents 
compare expression 
convert 

convert$from builtin 
convert$to_ integer 
convert$to_ target 
convert$to target fb 
copy_expression 
create list 

create operator 
create reference 
create statement 
create symbol 

create token 

declare 

declare constant 
declare constant$bit 
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declare _constant$char 
declare _constant$integer 
declare descriptor 
declare_integer 

declare temporary 

defined reference 
expand_assign 

expand infix 

expand primitive 
expression semantics 
fill_refer 

offset_adder 

operator semantics 
propagate bit 
reserve$declare lib 
semantic translator$abort 
semantic translator$error 
share expression 

simplify offset 


Include Files used: 


semant 

language utility 
source id descriptor 
array 

block 

boundary 

builtin table 
decoded _token_types 
declare type 
label 

list 

mask 

nodes 

operator 
op_codes 
reference 
semantic bits 
statement 
statement_types 
symbol 

symbol bits 
system 

token 
token_types 
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Errors Diagnosed: 


Error 121 
Error 122 
Error 123 
Error 124 
Error 126 
Error 127 
Error 128 
Error 131 
Error 132 
Error 139 
Error 141 
Error 142 
Error 146 
Error 147 
Error 148 
Error 160 
Error 167 
Error 168 
Error 187 
Error 188 
Error 190 
Error 436 
Error 437 
Error 438 
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NAME : initialize builtin 


Function: 


1. It initializes the external static data block pl1 data$ that 
contains information about all the builtin functions. 


Entry: 


initialize builtin 


Usage: 


declare initialize builtin 


call initialize builtin; 


Programs that invoke this entry: 


none 


Internal Procedures: 


none 


External Variables: 


pll_data_image$builtin_name 
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Internal Static Variables: 


none 


Programs Called: 


write list_ 


Include Files used: 


mask 
op_codes 
system 


Errors Diagnosed: 


none 
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NAME : pll1_ data 


Function: 


This data segment contains information of all the builtin 
functions. For each builtin function, it describes: the name of 
the builtin function; whether the builtin function will produce 
an aggregate result if some of its arguments are aggregates; the 
opcode if the builtin function is to result in an operator; the 
procedure to invoke if the builtin function is to result ina 
std_call operator; the label to transfer to in the procedure 
builtin; the number of arguments expected for the builtin 
function; and the data type expected of these arguments. 


This data segment is used extensively by the procedure 
builtin. 
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NAME: reserve 


Function: 


1. This program maintains a list of names of all the library 
subroutines that the resulting object program may invoke. 


2. It calls reserve$read lib to create a token node with a 
specific name. 


3. It declares the name as an entry constant. 


Entry: 


reserveg$declare lib 


Usage: 


declare reserve$declare lib entry ( fixed bin(15) ) 
returns (ptr) ; 


entry _ptr = reserve$declare lib ( subroutine number ); 


1. subroutine number number on the reserved list for 
library subroutines. (input) 


2. entry_ptr pointer to the reference node 
representing the entry. (output) 


Programs that invoke this entry: 


alloc semantics 
builtin 
convert_chars 
lang _util_ 
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operator semantics 


Entry: 
reserve$read_ lib 


This entry is used to create a token node for a specific 
library subroutine name. 


Usage: 


declare reserve$read lib entry ( fixed bin(15) ) 
returns (ptr) ; 


token_ptr = reserve$read lib ( subroutine number ); 
1. subroutine number number on the reserved list for 


library subroutines. (input) 


2. token ptr pointer to the token node returned 
by this program. (output) 


Programs that invoke this entry: 


compile link 
lang_util_ 
reserve$declare lib 


Entry: 


reserve$clear 
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This entry clears the renamed_array and the declared array 
used in this program. 


Usage: 
declare reserve$clear entry ( ) returns (ptr) ; 
null_ptr = reserve$clear ( ); 

1. null_ptr null pointer returned by this 


program. (output) 


Programs that invoke this entry: 


lang _util_ 
parse 


Entry: 


reserve$rename_ parse 


This entry is used to implement the rename option used in a 
procedure statement. By this option, the name of a _ specific 
library subroutine may be changed. 


Usage: 


declare reserve$rename parse entry ( fixed bin(15), 
bit(1) aligned ); 


call reserve$rename_ parse ( subroutine number, 
success bit ); 
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1. subroutine number number on the reserved list for 


2. success bit 


library subroutines. (input) 


bit indicating if the renaming step 
is successful. (output) 


Programs that invoke this entry: 


lang _util_ 
process entry 


Internal Procedures: 


none 


External Variables: 


pll_stat_$root 
tree $ 


Internal Static Variables: 


declared array 


parallel ptr 


parallel_ptr_number 


renamed_array 


an array of bits to indicate whether a 
particular library subroutine name has 
already been declared as an entry constant. 


an array of pointers used to indicate the new 
name to use if the particular library 
subroutine name has been renamed in a rename 
option. 


a number showing an empty slot in the 
parallel ptr array. 


an array of bits to indicate whether a 
particular library subroutine name has 
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already been renamed in a rename option. 


Programs Called: 


create symbol 
create_token 
parse error 
reserve$read_ lib 


Include Files used: 


language utility 
source id descriptor 
boundary 

declare type 

op_ codes 
operator 
parameter 
reference 

symbol 

system 

token 

token _list 
token_types 


Errors Diagnosed: 


none 
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NAME : defined reference 


Function: 


1. Given a defined reference node and a subscript list, this 
procedure determines whether the defined reference is 
properly declared. 


2. It forms the proper offset expression for the defined 
reference. 


Entry: 


defined reference 


Usage: 


declare defined reference entry ( ptr, ptr, ptr, ptr, 
ptr, bit(36) aligned) returns (ptr); 


return tree = defined reference ( block ptr, 

statement ptr, input_tree, subscript list, symbol ptr, 

context_bits ); 

1. block ptr pointer to the block node 
containing this statement. (input) 

2. statement ptr pointer to the statement node 
containing this operand. (input) 

3. input tree pointer to the operand that is to 
be processed by program. (input) 

4. subscript list pointer to the list of subscripts 
for this defined reference. 
(input) 

5. symbol ptr pointer to the symbol node of this 


defined reference. (input) 
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6. context_bits 


7. return tree 


Programs that invoke 


builtin 

expand primitive 
expression semantics 
io data _list_semanti 


Internal Procedures: 


find 


find r 


isubs or stars 


match 


print 


string_overlay 


bits containing special information 
about this operand. (input/output) 


pointer to the operand returned by 
this program. (output) 


this entry: 


cs 


an internal procedure to find and replace 
asterisks and isubs in a subscript list. 


an internal procedure to find and_ replace 
only isubs in a subscript list. 


an internal procedure to find asterisks and 
isubs in the subscript list of based 
reference offsets and to replace and form the 
proper offset expression for the defined 
reference. 


an internal procedure to match the defined 
item's father against its base to determine 
the suitability for simple defining or isub 
defining. 


an internal procedure used to call the error 
message program semantic translator$abort. 


an internal procedure to determine the 
suitability of a reference being string 
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overlayed defining. 


External Variables: 


pll_stat_$eis mode 
pll_stat_$root 


Internal Static Variables: 


none 


Programs Called: 


convert 

copy_expression 

create operator 

create symbol 

decbin 

declare 

declare _constant$integer 
declare temporary 
expression semantics 
Lookup 

offset_adder 
propagate bit 

semantic translator$abort 
semantic _translator$error 
subscripter 
token_to_binary 


Include Files used: 


semant 

language utility 
source id descriptor 
symbol 

symbol bits 
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block 
reference 
semantic bits 
token 
statement 
array 

list 

00 

op_ codes 
token_types 
nodes 

system 
declare type 
boundary 


Errors Diagnosed: 


Error 77 
Error 81 
Error 82 
Error 175 
Error 176 
Error 177 
Error 178 
Error 179 
Error 181 
Error 183 
Error 185 
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THE AGGREGATE EXPANSION 


Special tools are needed to handle aggregate references and 
aggregate expressions in a pll program. Aggregate references and 
aggregate expressions are recognized by expression semantics. 
This information is transmitted back to the caller, who now 
recognizes that some or all of the operands of an operator are 
aggregates, and who will invoke expand assign, expand infix, or 
expand prefix to do the processing depending on whether the 
operator is an assign operator, an infix operator or a_ prefix 
operator. 
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NAME : expand_ assign 


Function: 


1. This procedure looks at the left side and the right side of 
the assign operator, and transforms the operator into loop 
and join operators. 


2. If the left side is already a loop operator or join operator, 
then expand infix is called to merge the left side and the 
right side. 


3. If the right side is a constant, it is converted into the 
type it represents. 


4. If the LHS in RHS bit in the statement node is on, assignment 
must be done in two steps. 


5. If the left side is a temporary with no data type, it is 
replaced with a temporary whose type and extents are given by 
the right side. 

6. If an optimization can be found, the assignment’ is 
transformed into a copy string or copy_word operator. 


Otherwise expand infix is called to merge the left side and 
the right side. 


Entry: 


expand assign 


Usage: 


declare expand assign entry ( ptr, ptr, ptr, bit (36) 
aligned, ptr) returns (ptr); 


return_tree = expand assign ( block ptr, statement_ptr, 
input_tree, context _bits, aggregate reference ); 
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1. block _ptr 


2. statement ptr 


3. input tree 


4. context_bits 


pointer to the block node 
containing this statement. (input) 


pointer to the statement node 
containing this operand. (input) 


pointer to the operand to_ be 
processed by this program. (input) 


bits containing special information 
about this operand. (input/output) 


5. aggregate reference pointer to the aggregate reference 


6. return tree 


node, sometimes served as the 
secondary return value. (output) 


pointer to the operand returned by 
this program. (output) 


Programs that invoke this entry: 


builtin 
expand assign 


expression semantics 


operator semantics 


Internal Procedures: 


declare expression 


fill 


fill _desc 


an internal procedure used to create a 
declaration which represents the result of an 
aggregate reference. 


an internal procedure of fill_desc used to 
create assignments to descriptors to 
individual member or bound of an aggregate 
reference. 


an internal procedure used to create 
assignments to descriptors of an aggregate 
expression when used as a return value. 
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make_copy 
an internal procedure to create a copy string 
operator or a copy_word operator. 


maker 
an internal procedure to create a source like 
declaration of a temporary. 
print 
an internal procedure used to call the error 
message program semantic_translator$abort. 
size 


an internal procedure to determine the size 
of a string array temporary. 


External Variables: 


none 


Internal Static Variables: 


none 


Programs Called: 


compare declaration 
convert 
copy_expression 
create array 

create bound 

create operator 
create statement 
create symbol 
create_token 
declare 

declare _constant$integer 
declare temporary 
expand assign 
expand_infix 
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expression semantics 
refer_extent 

semantic translator$abort 
simplify expression 
subscriptor 


Include Files used: 


semant 

language utility 
source id descriptor 
array 

block 

boundary 

declare type 
decoded _token_types 
list 

nodes 

op_ codes 
operator 
reference 
semantic bits 
statement 
statement_types 
symbol 

symbol bits 
system 

token 
token_types 


Errors Diagnosed: 


Error 90 
Error 91 
Error 93 
Error 195 
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NAME : expand prefix 


Function: 


1. It is used to expand a unary operator when its operand is an 
aggregate reference, or an aggregate expression. 


2. It calls expand primitive to expand the aggregate reference. 


3. It calls an internal procedure to apply the unary operation 
to each member of the aggregate reference. 


Entry: 


expand prefix 


Usage: 


declare expand prefix entry ( ptr, ptr, ptr ) returns 


(ptr); 
return_tree = 
input_tree ); 
1. block ptr 
2. statement_ptr 


3. input tree 


4. return tree 
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expand prefix ( block ptr, statement _ptr, 


pointer to the block node 
containing this statement. (input) 


pointer to the statement node 
containing this operand. (input) 


pointer to the operand to_ be 
processed by this program. (input) 


pointer to the operand returned by 
this program. (output) 
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Programs that invoke this entry: 


expression semantics 


Internal Procedures: 


apply_prefix 


an internal procedure to 
Operation to each member 
expression. A call 
operator semantics to 


operators thus formed. 


External Variables: 


none 


Internal Static Variables: 


none 


Programs Called: 


create operator 
expand primitive 
operator semantics 


Include Files used: 


semant 

language utility 
source id descriptor 
operator 
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apply the unary 


of the aggregate 


is made to 


process the unary 


order number 


semantic bits 
op_codes 
nodes 


Errors Diagnosed: 


none 
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NAME : expand infix 


Function: 

1. It is used to expand an infix operator when some of its 
operands are aggregate references or aggregate expressions. 

2. It calls expand primitive to expand any aggregate reference. 


3. It calls an internal procedure to locally optimize any scalar 
expression found in any operand. 


4. It calls the internal procedure walk or match to apply the 
binary operation to the expanded operands. 


Entry: 

expand infix 
Usage: 

declare expand infix entry ( ptr, ptr, ptr ) returns 
(ptr); 


return tree = expand infix ( block ptr, statement_ptr, 
input_tree ); 


1. block ptr pointer to the block node 
containing this statement. (input) 


2. statement_ptr pointer to the statement node 
containing this operand. (input) 


3. input_tree pointer to the operand to_ be 
processed by this program. (input) 


4. return _tree pointer to the operand returned by 
this program. (output) 
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Programs that invoke 


builtin 
expand_assign 
expression_semantics 


Internal Procedures: 


match 


simplify scalar 


walk 


External Variables: 


pll_stat_$LHS 


this entry: 


an internal procedure to match the expanded 
parts of aggregate references and to combine 
them. 


an internal procedure to extract scalar 
subexpressions so that it is evaluated only 
once outside the loop. 


an internal procedure to walk down the loop 
and join operator of one aggregate reference 
and to apply the binary operation to the 
expanded member and a scalar. 


Internal Static Variables: 


none 


Programs Called: 


compare expression 
create operator 
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create statement 

create symbol 

declare temporary 

expand primitive 
expression_semantics 
operator semantics 
semantic translator$abort 
share_expression 


Include Files used: 


semant 

language utility 
source id descriptor 
declare type 
nodes 

op_ codes 
operator 
reference 
semantic bits 
statement 
statement_types 
symbol 

system 


Errors Diagnosed: 


Error 79 
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NAME : expand primitive 


Function: 

1. It determines from the subscript list the number of 
additional subscripts that needs be created. 

2. It calls the internal procedure expander to do the expansion. 

3. Depending on the declaration of the aggregate reference, it 


returns a series of loop and join operator to represent the 
expansion of the aggregate reference. 


Entry: 


expand primitive 


Usage: 


declare expand primitive entry ( ptr, ptr, ptr ) 
returns (ptr); 


return_tree = expand primitive ( block ptr, 
statement_ptr, input tree ); 


1. block _ptr pointer to the block node 
containing this statement. (input) 


2. statement ptr pointer to the statement node 
containing this operand. (input) 


3. input tree pointer to the operand to be 
processed by this program. (input) 


4. return _tree pointer to the operand returned by 
this program. (output) 
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Programs that invoke 


builtin 

expand infix 

expand prefix 
expression semantics 


Internal Procedures: 


addf 


bit_ptr 


declare _ index 


expander 


make_loop 


process subscripted__ 


subf 


this entry: 


an internal procedure to create an add 
operator. 


an internal procedure to search and_ replace 
the bit pointer operator with the proper 
locator qualifier. 


an internal procedure to declare a_ control 
index of the form '"s.n" used in the loop 
operators. 


an internal procedure to create a join 
operator for structure reference, and to 
create a loop operator for array reference. 
It may call itself recursively if the 
sublevel member of an aggregate reference is 
again an aggregate reference. 


an internal procedure to create a_ loop 
operator. 


reference 
an internal procedure to do the semantics 
processing of a scalar subscripted reference 
produced by the expansion of the aggregate 
reference. 


an internal procedure to create a_ sub 
operator. 
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External Variables: 


none 


Internal Static Variables: 


none 


Programs Called: 


bindec$vs 
copy_expression 

create bound 

create list 

create operator 

create reference 

create symbol 

create token 

declare 

declare _constant$integer 
declare temporary 
defined reference 
expression semantics 
refer_extent 

semantic translator$abort 
share expression 
simplify expression 
simplify offset 
subscripter 


Include Files used: 


semant 

language utility 
source id descriptor 
array 

declare type 

label 

list 
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nodes 
op_codes 
operator 
reference 
semantic bits 
symbol 

system 

token 
token_types 


Errors Diagnosed: 


Error 81 
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NAME : simplify expression 


Function: 


1. It walks through the expression and simplify all constant 


expressions of the form: 


constantl1 + constant2 
constantl - constant2 
constantl * constant2 


Entry: 


simplify expression 


Usage: 


declare simplify expression ( ptr, fixed bin, bit(1) 


aligned ) returns (ptr); 


return_tree 


simplify expression ( input_tree, 


constant_value, modified bit ); 


1. input_tree 


2. constant_value 


3. modified bit 


4. return tree 
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pointer to the expression to be 
simplified. (input/output) 


value of the expression if the 
entire expression can be reduced to 
a constant. (output) 


bit indicating if the’ entire 
expression is reduced to a 
constant. (output) 


pointer to the modified expression. 
(output) 
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Programs that invoke this entry: 


expand_assign 
expand primitive 


Internal Procedures: 


none 


External Variables: 


none 


Internal Static Variables: 


none 


Programs Called: 


declare _constant$integer 


Include Files used: 


language utility 
source id descriptor 
nodes 

op_ codes 

operator 

reference 

symbol 

system 
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Errors Diagnosed: 


none 
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SPECIAL STATEMENTS 


Certain operators representing allocate statements, do 
statements, or input/output statements undergo considerable 
modifications. Many new statements and operators may be created 
to fully implement their meaning. 
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NAME : alloc semantics 


Function: 


It transforms the allot_based and free based operators into 
calls to the runtime routines alloc _, alloc $storage, and 
freen.. 


2. If the allocation reference has the control attribute, the 
allot_based operator is transformed into the allot ctl 
operator and the free based operator is transformed into the 
free ctl operator. 

3. If the set reference is an unaligned pointer or an offset, 
statements will be created after or before the call to do the 
conversion between the different data types. 

4. If the allocation reference is an aggregate reference with 
refer_extents, statements will be created to assign the 
expression value to the refer reference in the refer option. 

5. If the allocation reference has the initial attribute, the 
procedure expand initial will be invoked to do _ the 
initialization of the based allocated reference. 

Entry: 

alloc semantics 
Usage: 


declare alloc semantics entry ( ptr, ptr, ptr ); 


call alloc semantics ( block ptr, statement_ptr, 


input_tree ); 


ue 


block ptr pointer to the block node 
containing this statement. (input) 
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2. statement_ptr pointer to the statement node 
containing this operand. (input) 


3. input tree pointer to the operand to be 
processed by this program. 
(input/output) 


Programs that invoke this entry: 


operator semantics 


Entry: 


alloc semantics$init_only 


This entry is called by io semantics in the processing 
of a locate statement. 


Usage: 


declare alloc semantics$init_only entry ( ptr, ptr, ptr 


call alloc semantics$init_only ( locator, 
statement_ptr, input_tree ); 


1. locator locator qualifier of the allocation 
reference. (input) 


2. statement_ptr pointer to the statement node 
containing this operand. (input) 


3. input tree pointer to the operand to_- be 
processed by this program. (input) 
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Programs that invoke this entry: 


io semantics 


Internal Procedures: 


build assignment 
an internal procedure to create statements to 
assign expression values to the _ refer 
reference in a refer option. 


getsize 
an internal procedure to get the number of 
storage words to be allocated or freed. 


External Variables: 


none 


Internal Static Variables: 


none 


Programs Called: 


copy_expression 

create list 

create operator 

create reference 
create statement 
create symbol 

declare constant$integer 
declare descriptor$ctl 
declare pointer 
declare temporary 
expand initial 
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expression semantics 
operator semantics 
propagate bit 
refer_extent 
reservegdeclare lib 
semantic translator$abort 
share expression 


Include Files used: 


semant 

language utility 
source id descriptor 
array 

boundary 

list 

nodes 

operator 
op_codes 
reference 
semantic bits 
statement 
statement_types 
symbol 

symbol bits 
system 


Errors Diagnosed: 


Error 114 
Error 115 
Error 116 
Error 117 
Error 118 


DRAFT: SUBJECT TO CHANGE 5-271 


order number 


NAME : do_ semantics 


Function: 

1. It does the semantics processing of the do statement. 

2. If the control variable of the do statement is locator 
qualified, subscript qualified, or has length expressions, 
these qualifiers will be extracted out of the do loop to 
prevent their values from being reset accidentally. 

3. Depending on the existence of  to-clause, by-clause, 
repeat-clause, and while-clause in the do-specification, 
statements will be created to represent their logic. 

4. If the do statement is a multiple specification do loop, a 
label variable will be created to control the flow of logic. 

Entry: 

do semantics 
Usage: 


1. 


declare do semantics entry ( ptr, ptr, ptr ); 


call do semantics ( block_ptr, statement_ptr, 
input_tree ); 
block ptr pointer to the block node 
containing this statement. (input) 
statement_ptr pointer to the statement node 
containing this operand. (input) 
input_tree pointer to the operand that is to 
be processed by program. 
(input/output) 
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Programs that invoke this entry: 


operator semantics 


Internal Procedures: 


copy_ref 


an internal procedure to determine whether a 


reference should be shared. 


make_operator 


an internal procedure to create an operator 


node. 


make statement 


an internal procedure to create a _ statement 


node. 


External Variables: 


none 


Internal Static Variables: 


none 


Programs Called: 


copy expression 
create label 
create list 
create operator 
create reference 
create statement 
create symbol 
create token 
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declare integer 

declare pointer 

free node 

operator semantics 
semantic translator$abort 
share_expression 


Include Files used: 


semant 

language utility 
source id descriptor 
block 

declare type 
label 

list 

nodes 

operator 

op_ codes 
reference 
semantic bits 
statement 
statement_types 
symbol 

system 

token 
token_types 


Errors Diagnosed: 


Error 140 
Error 143 
Error 144 
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NAME : io semantics 


Function: 


1. io semantics handles both the major io operators compiled by 
the parse as the root nodes of I/0 statements, and the minor 
io operators (transmission operators), provided, for the most 
part, by io data_list_semantics in the compilation of the 
data lists of get and put statements. For the handling of 
transmission operators, see step 15, below. 


2. The parse attaches operands of two types to io operators: 
reference and expression operands from the various options of 
io statements, attached in canonical positions known to parse 
and semantics alike; and a special final operand which is, in 
effect, a 36 bit bitstring. This last operand has a bit 
position for every option and statement type recognizable by 
the parse; the bits are set to describe the particular 
statement observed by the parse and serve importantly to 
drive the compilation of the statement by io semantics (see 
step 13). 


3. The design of the compiled procedure provides that I/0 
statements are almost entirely executed out-of-line by the 
PL/1 runtime I/O routines, PLIO. The work of io semantics 
is, then, to provide for suitable invocations of PLIO and to 
provide for the transfer of information between the compiled 
procedure and PLIO. The general design of the compiled 
procedure is as follows: 


a. each block containing an I/0 statement or _ format 
statement is non-quick; that is, it has a stack frame 
distinct from that of its parent block (if any). 


b. each stack frame corresponding to a block containing an 
I/0 statement has a workspace, PS, reserved in it for use 
by PLIO during the execution of any I/O statement and for 
passing information from the compiled procedure to PLIO 
(and sometimes back again). 


c. the location of this workspace is known to PL/1 operators 
by a convention between the code generator and the PL/1 
operators; all invocations of PLIO are accomplished by 
PL/1 operator invocations - rather than by full PL/1 
calls - the PL/1 operators pass a single argument to 
PLIO in every case, namely the address’ of PS. 
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Accordingly, the compiled procedure must, either by 
direct code or with the help of the PL/1 operators, store 
into PS (and, occasionally, elsewhere) all information 
which the invoked entry in PLIO will require to complete 
its work. 


4. The work of io semantics thus consists chiefly of compiling 
assignments to PS and invocations of PLIO. This is 
accomplished by the creation of assignment operators and of 
special io-operators which the code generator compiles into 
invocations of "transfer vector" entries in PL/1 operators. 
Certain of the jobs of assigning to PS are done by the code 
generator as part of its work in compiling the special 
io-operators. Some of the information that appears in PS is 
constant through the life of the stack frame containing the 
PS (for example, the stack frame pointer, the runtime symbol 
table pointer) and is put into PS by code supplied by the 
code generator on its own motion (see PLM for io op) rather 
than as the compilation of operators generated by 
io semantics. 


5. Assignment to or from PS is tricky, an anomaly in the 
compiler. Although at runtime PS is a structure containing 
pointers, integers, character and bit strings, a label, etc., 
at compile time PS is simply an unstructured "storage block". 
Assignment to PS makes use of the fact that the code 
generator will in effect take unspec of the object being 
assigned and will put it, as a bit string, at a position in 
PS depending on the offset relative to PS. It is thus 
necessary to convert the object being assigned into the exact 
form which it will have in PS prior to assigning it to PS. 
Extracting information from PS (as with the string returned 
for a KEYTO option) requires use of a defined reference whose 
qualifier points at the right spot in PS. 


6. A source_io statement is compiled into a list of statements, 
as follows: 


a. a labelled null statement (if the source statement was 
labelled) ; 


b. an assignment statement whose root is a join operator all 
but the last of whose operands are assignment operators 
each of which assigns an argument to its proper place in 
PS (or the like); and the last operand of which invokes 
PLIO (to do preparatory work in the stream case, to do 
the main work in the record case.); 
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10. 


c. in the case of most get and put statements, a list of 
statements implementing the implied DO's in the LIST, 
EDIT, or DATA option and having transmission operators 
for each scalar list item; 


d. in the case of a read statement with a keyto option, a 
statement to assign to the target of the keyto option; 


e. in many cases a null statement to which PLIO is to pass 
control if the remainder of the statement's execution is 
to be aborted. 


So that arguments to PLIO may be stored in the proper’ form 
and in the proper place (chiefly in PLIO), io semantics 
maintains an “assign-list", of length "lal", which is a list 
of assign operators each of which makes such an assignment. 
The operators in this list are created by an _ internal 
procedure of io semantics, assign ps, which creates the 
operator and in many cases inserts conversion operators or 
operators to create a pointer to a given argument. 


The io operator is processed as follows. First, if the io 
statement is labelled, a null statement is inserted after the 
labelled statement, and the root nodes of the labelled and 
null statements are interchanged so that a labelled null 
statement precedes an unlabelled io statement. 


The length, "lal", of the "“assign-list" is initialized to 
zero and the existence of PS is provided for. The last 
operand of the io-operator is converted to a 36 bit bitstring 
item, "job", which shows the options processed by the parse. 
Additional bits will be set in "job" by io semantics and 
"job" will be passed to PLIO via PS where it will be 
interpretted as specifying the work to be done at runtime. 


If a DATA, LIST, or EDIT option appears, 
io data _list_semantics is called. This has the effect of 
appending statements after the io statement, statements which 
implement implied DO's, transmissions of all list elements, 
and the establishment of format lists. For a "get data" 
statement, no statements are created. Instead, a 
get_data_ trans operator is compiled containing the list of 
allowed targets (a list of zero length for the source 
statement “get data;"); the code generator will translate 
this operator into a constant list of runtime symbol table 
offsets and the address of this constant list will be put 
into PS. 
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11. 


12. 


13. 


If the io statement is a LOCATE statement, then the reference 
in the statement is checked for conformance to the language, 
the pointer to be SET is established, and the size of the 
generation to be located is computed and assigned in PS. 


References to the variable to be allocated and to the pointer 
to be set are preserved in the local variables "locate var" 
and "locate set", respectively. The unprocessed reference to 
the pointer (if it appears) and to the variable to be 
allocated are removed from among the operands of the io 
operator. 


The oerands now attached to the io operator are processed by 
expression semantics. They are processed as, and are 
required to turn out to be, scalar, except in the two cases: 
the operands for the FROM and INTO options. 


The bits of the "job" (see step 2) now drive the’ further 
processing of the operands of the io operator, the presence 
of the i-th bit of "job" causing the code at the _ label 
"action(i)" to be invoked relative to the appropriate operand 
of the io operator. In most cases the work of the code so 
invoked is to check the semantic correctness of the program 
element and then cause one or more assignments to PS (or the 
like) to be compiled and put on the "assign-list" (see step 
7) by calling the internal procedure "assign ps". Most of 
these actions require no documentation here. A _ few special 
actions will be considered. 


INTO , FROM (actions 25,27): Storage in PS of the address 
and bitlength of the generation appearing in the option would 
suffice but for two points. First, the compiler's addressing 
of varying strings and of arrays of varying strings has to be 
considered. The compiler will take the address of the first 
data word (i.e., the second word) of a varying string or 
array of varying strings; and will calculate the bitlength 
only on the data portion of a scalar varying string. 
Accordingly, bit(3) of "job" is set to indicate that the 
generation is varying and bit(35) of "job" is set to indicate 
a varying array. Second, as an optimization in consideration 
of the fact that the runtime I/0 mechanism expects 
byte-aligned and byte-lengthed generations of storage, the 
compiler will set bit(34) of "job" to indicate that 
byte-alignment and byte-length of the generation must be 
checked at runtime; if the byte-alignment and byte-length 
can be assured at compile time, then this bit will not be 
set. 
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KEYTO (action 22): The reference in the KEYTO option (the 
keyto target) is checked to see that it is a character string 
reference (pseudovariables not being allowed). An assignment 
statement is created before the statement following the read 
statement. This assignment statement will pick up the value 
obtained at runtime and assign it to the keyto target. A 
labelled null statement is then created before the statement 
originally following the read statement (and, thus, after the 
assignment statement) whose label is assigned to PS as an 
abnormal return label. 


OPEN (action 34): A structure, FAB2, is created in the stack 
frame to receive the attributes specified in the open 
statement. A template is created to initialize FAB2; 
constants for title, pagesize, and linesize are written into 
the template. An assignment of the template to FAB2 is 
placed in the “assign-list". Assignments of variable values 
for title, pagesize, and linesize are compiled and _ placed 
into the "“assign-list". An assignment of the address of FAB2 
to PS is compiled and placed in the "“assign-list". 


14. After the "job"-dictated actions are done, the "job" word is 
corrected for use at runtime and placed in the record io or 
stream prep operator, if any. An assignmant statement is 
created before the current statement (which has been made a 
null statement) to which is attached a join operator joining 
the operators in the "assign-list". 


15. The transmission operators (see step 1), as_ originally 
created by data_list_parse and as_ transformed by 
io data list_semantics, are of three kinds. 


The get_data trans operator has as its single operand a join 
of the references appearing in the list of the get data 
statement. This operator is not processed further by 
io semantics. 


The put_data_trans operator is received by io semantics with 
one operand, a_ reference containing a subscript’ list. 
io semantics moves this subscript list to the first operand 
position of the put_data_ trans operator. The code generator 
will make the runtime symbol table offset for the reference 
and the evaluated subscript values available at runtime. 


The remaining transmission operators, get_list_trans, 
put_list_trans, get_edit_trans, and put _edit_trans, are 
treated as a class. To each is attached a descriptor valued 
expression whose value describes the item being transmitted 
(this item is always scalar at this point, aggregates having 


DRAFT: SUBJECT TO CHANGE 5-279 order number 


been expanded by expand prefix - see io data_list_ semantics). 
This descriptor is a trivially determined constant in the 
cases of numeric or pictured items, but may be complicated in 
the case of string items which may be adjustable, have refer 
extents, etc. 


Entry: 


io semantics 


Usage: 

declare io semantics entry ( ptr, ptr, ptr ); 

call io semantics ( block_ptr, statement_ptr, 
input_tree ); 


1. block ptr pointer to the block node 
containing this statement. (input) 


2. statement_ptr pointer to the statement node 
containing this operand. (input) 


3. input tree pointer to the operand that is to 
be processed by program. (input) 


Programs that invoke this entry: 


expression semantics 
operator semantics 


Internal Procedures: 


assign ps 
an internal procedure whose princial use is 
the assignment with coercive conversion of 


DRAFT: SUBJECT TO CHANGE 5-280 order number 


some element to PS. It has been extended to 
do addressing and to assign to storage blocks 
other than PS. 


io semantics util 
a dummy entry point, never called. 


io_ semantics util$keys 
an internal procedure to extend the size of 
PS to 48 + 65 words long to accommodate the 
new key, which is declared as_ char(256) 


varying. It also sets list.element(50) to 
the defined new key, whose qualifier is 
PS|[48. 


io semantics util$make fa 
an internal procedure to create a work space 
of 122 words to store the format stack in the 
use of a “get edit" or "put edit" statement. 


io semantics util$make fab2 
an internal procedure to create a work space 
of 14 words to accommodate the title option, 
page size, and line size in an _ open 
statement. 


io semantics util$make_ ffsb 
an internal procedure to create a fake FSB 
block for the use of string option in a get 
statement or put statement. 


io semantics util$make ps 
an internal procedure to create a 48 word 
work space for the PS used by allt io 
statements. 


io semantics util$make ssl 
an internal procedure to create a work space 
for the subscript list used in a "put data" 
statement. 


External Variables: 


pll_stat_$generate symtab 
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Internal Static Variables: 


none 


Programs Called: 


alloc _semantics$init_only 
convert 

convert$to_ target 
copy_expression 

create label 

create list 

create operator 

create reference 

create statement 

create symbol 

create token 

declare 

declare constant 

declare constant$bit 
declare _constant$integer 
declare descripter 
declare temporary 
expression semantics 

io data _list_semantics 
ioa_ 

operator semantics 
propagate bit 
refer_extent 

semantic translator$error 
share expression 


Include Files used: 


semant 

language utility 
source id descriptor 
nodes 

block 

list 

operator 

op_codes 
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semantic bits 
symbol 

array 

system 
reference 
token 
token_types 
statement 
statement_types 
declare type 
label 

ps_map 

symbol bits 
boundary 


Errors Diagnosed: 


Error 62 

Error 114 
Error 115 
Error 461 
Error 462 
Error 263 
Error 464 
Error 465 
Error 466 
Error 467 
Error 468 
Error 471 
Error 472 
Error 474 
Error 475 
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NAME : io data list semantics 


Function: 


1. It processes the data list of a stream-io statement. 


2. It turns on the set bit of the symbol node for an item in a 
get statement data list. 


3. It turns on the get_data bit in the block node for "get 
data;" or "put data;" statements. 


4. Items in a "get data" statement data list will be put on the 
pll_stat_$o0k list; 


5. Items in a "put data" statement data list will have their 
symbol.put_in symtab bit turned on. 


6. It calls the internal procedure io join semantics to process 
the items on the data list of a "get/put list/edit" 
statement. 


7. %It calls the entry format_list semantics to process the 
format list in a "get edit" or "put edit" statement. 


Entry: 


io data list semantics 


Usage: 
declare io data list semantics entry ( ptr, ptr, ptr ); 
call io data_list_semantics ( block ptr, statement_ptr, 


input_tree ); 


1. block ptr pointer to the block node 
containing this statement. (input) 
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2. statement_ptr pointer to the statement node 
containing this operand. (input) 


3. input tree pointer to the operand to be 
processed by this program. 
(input/output) 


Programs that invoke this entry: 


io semantics 


Entry: 


format_list_ semantics 


It processes the format list of a format statement, or the 
format list in "get edit" or "put edit" statements. It may call 
itself recursively to process format items and format lists. 


Usage: 
declare format_list semantics entry ( ptr, ptr, ptr ); 
call format_list semantics ( block ptr, statement_ptr, 


input_tree ); 


1. block ptr pointer to the block node 
containing this statement. (input) 


2. statement_ptr pointer to the statement node 
containing this operand. (input) 


3. input tree pointer to the operand to be 
processed by this program. (input) 
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Programs that invoke 


expression semantics 


io data list _semanti 


Internal Procedures: 


down 


io join semantics 
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this entry: 


cs 


an internal procedure to turn on the set bit 
and the put_in_symtab bit in the symbol node 
and all the lower level members. 


The = internal procedure io join semantics 
processes an item list, which may contain 
simple items such as references and 
expressions as well as complex items - 
implied do groups -, by creating statements 
and inserting them just before the statement 
that originally followed the io statement 
being compiled. These statements control the 
do-groups and contain the transmission 
operators which io semantics later processes. 
The join seen by io join semantics contains 
simple items and/or’ do fun operators 
(corresponding to implied do _ groups). 
io join semantics collects the maximum number 
of consecutive simple items, replaces each 
with the appropriate transmission operator 
containing the simple item, and creates a 
statement whose root node is a join 
containing these transmission operators (if 
there are more than one) or containing the 
transmission operator itself (if there is 
exactly one). Each do fun operator is 
processed by the creation of a do statement 
containing, as its root, the do fun operator, 
next followed by the result of invoking 
io _join_semantics recursively to process the 
item list associated with the do fun 
operator, and finally followed by a_ labelled 
null statement whose label is associated with 
the do statement as if it were the associated 
end statement. 
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label_of_ statement 


an internal procedure to create a label to 


attach to a null statement 
program. 


walk 


created by this 


an internal procedure to turn on the set bit 
and the put_in_symtab bit in the symbol node 
and all its fathers and sons and brothers. 


External Variables: 


pll_stat_$o0k list 


Internal Static Variables: 


none 


Programs Called: 


convert$to_ target 

create label 

create list 

create operator 

create statement 

create symbol 

declare _constant$integer 
declare temporary 
defined reference 
expression semantics 
format_list semantics 
make_non_quick 

semantic translator$abort 


Include Files used: 
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semant 

language utility 
source id descriptor 
nodes 

system 

mask 

reference 

block 

token 
token_types 
semantic bits 
symbol 

declare type 
label 

list 

op_ codes 
operator 
statement 
statement_types 
ps_map 


Errors Diagnosed: 


Error 170 
Error 171 
Error 469 
Error 470 
Error 473 


Chapters. runoff 09/05/74 
1139.9r w 09/05/74 1134.4 808029 


SECTION VIII 
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UTILITY PROGRAMS 


AN OVERVIEW 


The procedures described in this section deals with many of 
the utility functions not limited to use by any phase of the 
compiler. 
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NODE MANAGEMENT PROGRAMS 


The scheme used for the allocation and freeing of the nodes 
used by the compiler is simple. When a node is needed, it is 
allocated in the tree $ segment -- sometimes in the xeq tree $ 
segment. When a node is to be freed, generally no action is 
taken. But because of the frequency of allocating and freeing 
certain nodes like the operator node (2 or 3 operands), list node 
(2 or 3 elements), reference node, and statement node, a pool is 
maintained to keep track of the freed nodes. On subsequent 
allocation of the same type of node, this pool is examined for 
the existence of a freed and reuseable node before attempting to 
allocate a fresh node in the tree $ segment (or xeq tree $ 
segment). 
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NAME : create block 


Function: 


1. It creates and initializes a block node. 


Entry: 


create block 


Usage: 


declare create block entry ( bit(9) aligned, ptr ) 


returns (ptr) ; 


block ptr = create block ( block type, father block ptr 


1. block _type 


2. father block ptr 


3. block ptr 


type of block node to be created. 
(input) 


pointer to the block node 
containing this block. (input) 


pointer to the block node returned 
by this program. (output) 


Programs that invoke this entry: 


code generator 

lang _util_ 

on_ parse 

parse 

prepare symbol table 
procedure parse 


DRAFT: SUBJECT TO CHANGE 


8-291 order number 


Internal Procedures: 


none 


External Variables: 


pll_stat_ $node uses 
pll_stat_$statement_id 


Internal Static Variables: 


none 


Programs Called: 


pll_get 
tree $ 


Include Files used: 


rename 
block 
block_types 
nodes 


Errors Diagnosed: 


none 
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NAME: create statement 


Function: 


1. It creates and initializes a statement node. 


Entry: 


create statement 


Usage: 


declare create statement entry ( bit(9) aligned, ptr, 
ptr, bit(12) aligned ) returns (ptr); 


statement_ptr = create statement ( statement_type, 
father ptr, label_ptr, conditions ); 


1. statement_type type of statement to be created. 
(input) 
2. father ptr either a pointer to the block node 


containing this statement, or a 
pointer to the statement node 
preceding this statement. (input) 


3. label ptr pointer to the list of labels for 
this statement. (input) 

4. conditions conditions for this statement. 
(input) 

5. statement_ptr pointer to the statement node 


created by this program. (output) 
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Programs that invoke this entry: 


alloc semantics 
builtin 

code generator 
declare descriptor 
declare parse 
default_parse 

do parse 

do semantics 
expand_assign 

expand infix 

expand initial 
function 

if_parse 

io data list semantics 
io semantics 

io statement_parse 
lang _util_ 

on_ parse 

operator semantics 
prepare symbol table 
procedure parse 
process entry 
statement_parse 
statement _recognizer 


Entry: 


create statement$prologue 


This entry is used to create a statement node in the 
prologue sequence instead of the main sequence of the block. 


Usage: 


declare create statement$prologue entry ( bit(9) 
aligned, ptr, ptr, bit(12) aligned ) returns (ptr); 
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statement_ptr 
statement_type, father ptr, 


1. statement_type 


2. father ptr 


3. label ptr 


4. conditions 


5. statement_ptr 


= create statement$prologue ( 
label_ptr, conditions ); 


type of statement to be created. 
(input) 


either a pointer to the block node 
containing this statement, or a 
pointer to the statement node 
preceding this statement. (input) 


pointer to the list of labels for 
this statement. (input) 


conditions for this statement. 
(input) 


pointer to the statement node 
created by this program. (output) 


Programs that invoke this entry: 


declare 

declare descriptor 
declare structure 
expand initial 
get_array_ size 
get_size 

lang _util_ 


Internal Procedures: 


none 


External Variables: 


pll_stat_$cur_ statement 
pll_stat_$tree ptr 
pll_stat_$node_ uses 
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pll_stat_$source seg 
pll_stat_$st_length 
pll_stat_$st_ start 
pll_stat_$statement_id 
tree $ 


Internal Static Variables: 


none 
Programs Called: 
pll_get 


xeq_tree $ 


Include Files used: 


rename_xeq 
token list 
label 
reference 
list 
statement 
block 
nodes 


statement_types 


Errors Diagnosed: 


none 
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NAME: create operator 


Function: 


1. It creates and initializes an operator node. 


Entry: 


create operator 


Usage: 


declare create operator entry ( bit(9) 


bin(15) ) returns (ptr); 


aligned, fixed 


operator ptr = create operator ( op code, arg number ); 


1. op code operator code 
(input) 

2. arg number number 
operator. 

3. operator ptr pointer 


this operator. 


for this 


operator node 


created by this program. (output) 


Programs that invoke this entry: 


alloc semantics 
attribute parse 
builtin 
convert 
copy_expression 
data_list_parse 
declare 
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declare descriptor 
declare structure 
defined reference 
do parse 

do semantics 
evaluate 
expand_assign 
expand infix 
expand initial 
expand prefix 
expand primitive 
expression parse 
expression semantics 
format_list_parse 
function 

generic selector 
get_array_ size 
get_size 

if_parse 

io data list semantics 
io semantics 

io statement_parse 
lang _util_ 
offset_adder 

on_ parse 

operator semantics 
prepare symbol table 
procedure parse 
process entry 
reference parse 
simplify offset 
statement_parse 
subscripter 


Internal Procedures: 


none 


External Variables: 


pll_stat_$tree ptr 
pll_stat_$node uses 
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Internal Static Variables: 


none 


Programs Called: 


pll_get 
xeq_tree $ 


Include Files used: 


rename_xeq 
operator 
nodes 


Errors Diagnosed: 


none 
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NAME: create reference 


Function: 


1. It creates and initializes a reference node. 


Entry: 


create reference 


Usage: 


declare create reference entry ( ptr ) returns 


reference ptr = create reference ( token ptr ); 


(ptr); 


1. token_ptr pointer to the token node or symbol 
node for this reference (input) 


2. reference ptr pointer to the reference 


node 


created by this program. (output) 


Programs that invoke this entry: 


alloc semantics 
builtin 

code generator 
copy expression 
declare descriptor 
do semantics 
expand initial 
expand primitive 
expression semantics 
fill_refer 
function 
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get_reference 

io semantics 

lang _util_ 
operator semantics 
refer_extent 
reference parse 
share expression 
statement_parse 
statement_type 


Entry: 


create _reference$for_ symbol 


This entry is called so that the reference node created 
will be allocated in the xeq_tree_ segment instead of the tree_ 
segment. 


Usage: 
declare create reference entry ( ptr ) returns (ptr) ; 
reference ptr = create _reference ( token ptr ); 
1. token ptr pointer to the token node or symbol 
node for this reference. (input) 
2. reference ptr pointer to the reference node 


created by this program. (output) 


Programs that invoke this entry: 


create symbol 
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Internal Procedures: 


none 


External Variables: 


pll_stat_$free ptr 
pll_stat_ $node uses 
xeq tree $ 


Internal Static Variables: 


none 


Programs Called: 


pll_get 
tree $ 


Include Files used: 


rename 
nodes 
reference 


Errors Diagnosed: 


none 


DRAFT: SUBJECT TO CHANGE 8-302 


order number 


NAME : create token 


Function: 


1. It prepares to create a token node for the token’ represented 
by the given string. 
2. It tries to find the token node in the hash table. 


3. If it succeeds, it returns the pointer to the token node 
found. 


4. If it fails, it creates a new token node, puts the pointer in 
the appropriate slot in the hash table, and returns. 


Entry: 


create_token 


Usage: 


declare create token entry ( char (*) aligned, bit (9) 
aligned ) returns (ptr) ; 


token_ptr = create token ( token string, token type ); 


1. token string string for which the token is made. 
(input) 

2. token type type of token to be- created. 
(input) 

3. token ptr pointer to the token node returned 


by this program. (output) 
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Programs that invoke this entry: 


attribute parse 
builtin 

convert 

create identifier 
declare parse 
descriptor parse 
do semantics 
evaluate 

expand assign 
expand initial 
expand primitive 
expression parse 
expression semantics 
initialize int static 
io semantics 

io _statement_parse 
lang_util_ 

lex 

merge attributes 
on_ parse 

operator semantics 
parse 

process entry 
reserve 
statement_type 


Internal Procedures: 


none 
External Variables: 
pll_stat_$hash table 


pll_stat_$node_uses 


Internal Static Variables: 
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none 


Programs Called: 


pll_get 
tree $ 


Include Files used: 


rename 
nodes 
token 
create token 


Errors Diagnosed: 


none 
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NAME : create symbol 


Function: 


1. It creates and initializes a symbol node. 


Entry: 


create symbol 


Usage: 


declare create symbol entry ( ptr, ptr, bit(3) aligned 
) returns (ptr); 


symbol ptr = create symbol ( block ptr, token ptr, 
create type ); 


1. block _ptr pointer to the block node 
containing this symbol. (input) 

2. token ptr pointer to the token node for which 
the symbol node is created. 
(input) 

3. create type bits indicating whether the symbol 


node is created by declaration, by 
context, by implication, or by the 
compiler. (input) 


4. symbol ptr pointer to the symbol node returned 
by this program. (output) 


Programs that invoke this entry: 
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alloc semantics 
builtin 
context_processor 
copy_expression 
declare constant 
declare descriptor 
declare integer 
declare parse 
declare pointer 
declare temporary 
default_parse 
defined reference 
descriptor parse 
do semantics 
expand assign 
expand infix 
expand initial 
expand primitive 
expression semantics 
format_list_parse 
function 

generate constant 
generic selector 
get_variable 

io data list semantics 
io semantics 

io _statement_parse 
lang _util_ 

on_ parse 

operator semantics 
process entry 
reference parse 
reserve 
statement_parse 


Internal Procedures: 


none 


External Variables: 


pll_stat_$free ptr 
pll_stat_$node_ uses 
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tree $ 


Internal Static Variables: 


none 


Programs Called: 


create identifier 

create _reference$for symbol 
pll_get 

tree $ 


Include Files used: 


rename 
symbol 
block 
token list 
nodes 


Errors Diagnosed: 


none 
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NAME: create context 


Function: 


1. It creates and initializes a context node. 


Entry: 


create_context 


Usage: 


declare create context entry ( ptr, ptr ) returns 


(ptr); 


context_ptr = 


1. block _ptr 


2. token ptr 


3. context _ptr 


create context ( block ptr, token ptr ); 


pointer to the block node 
containging this token. (input) 


pointer to the token node for which 
the context is to be recorded. 
(input) 


pointer to the context node 
returned by this program. (output) 


Programs that invoke this entry: 


context 
lang_util_ 
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Internal Procedures: 


none 


External Variables: 


pll_stat_ $node _ uses 


Internal Static Variables: 


none 


Programs Called: 


pll_get 
tree $ 


Include Files used: 


rename 
context 
nodes 
block 


Errors Diagnosed: 


none 
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NAME: create array 


Function: 


1. It creates and initializes an array node. 


Entry: 
create array 
Usage: 
declare create array entry ( ) returns (ptr); 
array ptr = create array ( ); 
1. array_ptr pointer to the array node returned 


by this program. 


Programs that invoke this entry: 


attribute parse 
copy_expression 
expand_assign 
expand initial 
function 
get_array size 
lang_util_ 


Internal Procedures: 
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none 


External Variables: 


pll_stat_$node uses 


Internal Static Variables: 


none 


Programs Called: 


pll_get 
tree $ 


Include Files used: 


rename 
nodes 
array 


Errors Diagnosed: 


none 
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NAME : create bound 


Function: 


1. It creates and initializes a bound node. 


Entry: 
create bound 
Usage: 
declare create array entry ( ) returns (ptr); 
array ptr = create array ( ); 
1. array_ptr pointer to the array node returned 


by this program. 


Programs that invoke this entry: 


attribute parse 
copy_expression 
expand_assign 
expand initial 
expand primitive 
function 
get_array_ size 
lang_util_ 
subscripter 


Internal Procedures: 
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(output) 
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none 


External Variables: 


pll_stat_$node uses 


Internal Static Variables: 


none 


Programs Called: 


pll_get 
tree $ 


Include Files used: 


rename 
nodes 
array 


Errors Diagnosed: 


none 
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NAME : create list 


Function: 


1. It creates and initializes a list node. 


Entry: 


create list 


Usage: 


declare create list entry ( fixed bin(15) ) returns 
(ptr); 


list_ptr = create list ( number ); 


1. number number of elements for this list 
node. (input) 


2. list _ptr pointer to the list node returned 
by this program. (output) 


Programs that invoke this entry: 


alloc semantics 
assign storage 
attribute parse 
builtin 

check_o_ ands 
compile entry 
compile statement 
convert_chars 
copy_expression 
declare 
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descriptor parse 
do parse 

do semantics 
expand initial 
expand primitive 
expression semantics 
function 
gen_pll_linkage 
get_reference 
if_parse 

io data list semantics 
io semantics 

lang _util_ 

mst 

name_assign 
on_parse 

operator semantics 
optimizer 

process entry 
reference parse 
statement_parse 
statement_type 
subscripter 


Internal Procedures: 


none 
External Variables: 
pll_stat_$free ptr 


pll_stat_ $node uses 


Internal Static Variables: 


none 
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Programs Called: 


pll_get 
xeq_tree $ 


Include Files used: 


rename 
nodes 
list 


Errors Diagnosed: 


none 
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NAME: create default 


Function: 


1. It creates and initializes a default node. 


Entry: 
create default 

Usage: 
declare create default entry ( ) returns (ptr); 
default_ptr = create default ( ); 

1. default_ptr pointer to the default node created 


by this program. (output) 
Programs that invoke this entry: 
default_parse 


lang _util_ 


Internal Procedures: 


none 


External Variables: 
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pll_stat_$node_uses 


Internal Static Variables: 


none 


Programs Called: 


pll_get 
tree $ 


Include Files used: 


rename 
default 
nodes 


Errors Diagnosed: 


none 
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NAME : create label 


Function: 


1. It creates and initializes a label node. 


Entry: 


create label 


Usage: 


declare create label entry ( ptr, ptr, bit(3) aligned 


label_ptr = ( block ptr, token ptr, create type ); 


1. block ptr 


2. token ptr 


3. create type 


4. label ptr 


pointer to the block node 
containing this label. (input) 


pointer to the token node for which 
the label node is created. (input) 


bits indicating whether the label 
node is created by declaration, by 
context, by implication, or by the 
compiler. (input) 


pointer to the label node returned 
by this program. (output) 


Programs that invoke this entry: 


code generator 
compile block 
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compile statement 
compile tree 
convert_chars 
declare label 

do parse 

do semantics 
expand initial 

if parse 

io data _list_semantics 
io semantics 
lang_util_ 
operator semantics 
set_indicators 


Internal Procedures: 


none 


External Variables: 


pll_stat_ $node _ uses 
pll_stat_$statement_id 
tree $ 


Internal Static Variables: 


none 


Programs Called: 


create identifier 
pll_get 
tree $ 
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Include Files used: 


rename 
nodes 
block 
label 
token_list 
token 


Errors Diagnosed: 


none 
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NAME : create cross reference 


Function: 


1. It creates and initializes a cross reference node. 


Entry: 
create cross reference 

Usage: 
declare create cross reference entry ( ) returns (ptr); 
cross reference ptr = create cross reference ( ); 

1. cross reference ptr pointer to the cross reference node 


returned by this program. (output) 


Programs that invoke this entry: 


expand initial 
expression semantics 
lang_util_ 

Lookup 

process entry 


Internal Procedures: 


none 


DRAFT: SUBJECT TO CHANGE 8-323 order number 


External Variables: 


pll_stat_ $node uses 


Internal Static Variables: 


none 


Programs Called: 


pll_get 
tree $ 


Include Files used: 


rename 
cross reference 
nodes 


Errors Diagnosed: 


none 
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NAME : create identifier 


Function: 


1. It fabricates a compiler-created unique name. 


2. It creates a token node for that name. 


Entry: 
create identifier 

Usage: 
declare create identifier entry ( ) returns (ptr); 
token_ptr = create identifier ( ); 

1. token _ptr pointer to the token node returned 


by this program. (output) 


Programs that invoke this entry: 


create label 
create symbol 
lang _util_ 


Internal Procedures: 


none 
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External Variables: 


pll_stat_$compiler_created_ index 


Internal Static Variables: 


none 
Programs Called: 
bindec$vs 


create token 


Include Files used: 


token_types 


Errors Diagnosed: 


none 
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NAME : create_storage 


Function: 


1. It allocates a block of words. 


Entry: 


create storage 


Usage: 


declare create storage entry 
(ptr); 


bin ) returns 


storage ptr = create storage ( number ); 


1. number number of words 


(input) 


2. storage ptr pointer to 


returned by this program. 


Programs that invoke this entry: 


declare constant 
lang_util_ 


Internal Procedures: 


none 
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External Variables: 


pll_stat_ $node uses 


Internal Static Variables: 


none 


Programs Called: 


pll_get 


tree $ 


Include Files used: 


rename 


Errors Diagnosed: 


none 
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NAME : pll_ get 


Function: 


1. It calls tree manager$get_ free to get a free area. 


Entry: 


pll1_ get 


declare 


return ptr 


1. size 


2. area ptr 


3. return ptr 


entry ( fixed bin(15), ptr ) returns 


pll_get ( size, area ptr ); 


number of words to be allocated. 
(input) 


pointer to the area inside which 
space is to be allocated. (input) 


pointer to the space just 
allocated. (output) 


Programs that invoke this entry: 


assign storage 
cg error 


compile formats 


copy_temp 

create_array 
create block 
create bound 
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create context 
create cross reference 
create default 
create label 
create list 

create operator 
create reference 
create statement 
create storage 
create symbol 
create token 

ev 
generate_constant 
lang _util_ 

lex 

mst 

pll_signal_ catcher 
stack_temp 

state _man 


Entry: 
pll_put 


This entry is used for freeing an area. But currently this 
entry does nothing. 


Usage: 
declare pll_ put entry; 


call pll_ put; 


Programs that invoke this entry: 


none 
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Internal Procedures: 


none 


External Variables: 


none 


Internal Static Variables: 


none 


Programs Called: 


none 


Include Files used: 


none 


Errors Diagnosed: 


none 
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NAME: tree manager 


Function: 


1. It manages the use of multiple free storage segments used by 
the compiler during compilation. 


Entry: 

tree_manager$init 

It creates a tree $ segment, and a xeq tree $ segment. 
Usage: 

declare tree manager$init entry ( label ); 

call tree _manager$init ( abort label ); 
1. abort label label indicating where the transfer 


is to go if all the storage space 
is exhausted. (input) 


Programs that invoke this entry: 
lang_util_ 


v2pl1 


Entry: 
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tree_manager$truncate 


It truncates the tree $ segment as well as _ the 
xeq_ tree $ segment. 


Usage: 


declare tree manager$truncate entry ( ); 


call tree_manager$truncate; 


Programs that invoke this entry: 


lang_util_ 
v2pl1 


Entry: 


tree_manager$get_free 


This entry makes a call to the Multics system routine 
hcs $make seg to allocate a free segment in the process directory 
of the user. 


Usage: 


declare tree _manager$get_free entry ( fixed bin(24), 
ptr, ptr ); 


call tree _manager$get_free ( size, area _ ptr, unused ptr 
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1. size number of words to be allocated. 
(input) 


2. area_ptr pointer to the area inside which 
space is to be allocated. (input) 


3. unused ptr dummy argument, currently not being 
used for any purpose. 


Programs that invoke this entry: 


lang_util_ 


Internal Procedures: 


none 


External Variables: 


pll_stat_$condition_ index 
pll_stat_$free ptr 
pll_stat_$root 
pll_stat_$source list ptr 
pll_ stat _$tree vec index 
tree $tree_ 


Internal Static Variables: 


abort_label label indicating where the transfer is to go 
if all the free segments are exhausted. 

tree vec array of pointers to the free segments it has 
allocated. 

xeq_ ptr pointer to the xeq tree area it has 
allocated. 
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Programs Called: 


hcs $make_ seg 
hcs $truncate seg 
ioa_ 


Include Files used: 


source list 


Errors Diagnosed: 


none 
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NAME : free node 


Function: 


1. Given a pointer to a node, it will determine the type of node 
to be freed. 


2. If the node is an operator node, a list node, a_ reference 
node, or a symbol node, the node will be saved ona 
free-list. Future creations of the same type of node can 
pick it up from the free-list, without having to allocate a 


new node. 
Entry: 
free node 
Usage: 


declare free node entry ( ptr ); 


call free node ( node ptr ); 


1. node ptr pointer to the node to be freed by 
this program. (input) 


Programs that invoke this entry: 


declare_parse 
default_parse 

do parse 

do semantics 
expression semantics 
format_list_ parse 
lang _util_ 


DRAFT: SUBJECT TO CHANGE 8-336 order number 


offset_adder 

on_ parse 

operator semantics 
optimizer 

prepare symbol table 
simplify offset 


Internal Procedures: 


none 


External Variables: 


pll_stat_$free ptr 


Internal Static Variables: 


none 


Programs Called: 


none 


Include Files used: 


rename 
nodes 
symbol 
token 
block 
statement 
reference 
array 
list 
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context 
label 
operator 


Errors Diagnosed: 


none 
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VARIABLE AND CONSTANT CREATION PROGRAMS 


It is often necessary for the compiler to declare a constant 
or a variable with some specific attributes to facilitate the 
processing of other references and expressions. This function is 
accomplished by the following procedures. 
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NAME : declare integer 


Function: 


1. It creates a symbol node and 


fixed binary real 


declaration of default precision and automatic storage class. 


Entry: 


declare integer 


Usage: 


declare declare integer entry ( ptr ); 


return_ptr = declare integer ( block ptr ); 


1. block ptr pointer to the block node for which 
the integer is declared. (input) 


2. return_ptr pointer 
representing the 
by this program. 


Programs that invoke this entry: 


builtin 
declare 

do semantics 
expand initial 
get_array_ size 
get_size 

lang _util_ 
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reference node 
integer declared 
(output) 


order number 


Internal Procedures: 


none 


External Variables: 


Internal Static Variables: 


none 


Programs Called: 


create symbol 


Include Files used: 


language utility 
source id descriptor 
boundary 

declare type 

symbol 

system 


Errors Diagnosed: 


none 
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NAME : declare pointer 


Function: 


1. It creates a symbol node and makes apointer declare constantl 


withautomatic storage class. 


Entry: 


declare pointer 


Usage: 


declare declare pointer 


return_ptr = declare pointer ( block ptr ); 


1. block ptr pointer to the block node for which 


the pointer is declare. 


2. return_ptr pointer 


(input) 


reference node 


representing the pointer declared 


by this program. 


Programs that invoke this entry: 


alloc semantics 
declare 

declare descriptor 
declare structure 

do semantics 

expand initial 

lang _util_ 

prepare symbol table 
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(output) 
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Internal Procedures: 


none 


External Variables: 


none 


Internal Static Variables: 


none 


Programs Called: 


create symbol 


Include Files used: 


language utility 
source id descriptor 
boundary 

declare type 

symbol 

system 


Errors Diagnosed: 


none 


DRAFT: SUBJECT TO CHANGE 8-343 


order number 


NAME : declare temporary 


Function: 


1. It searches through the list of temporary nodes already 
created for an identical declaration. If the search is 
successful, that temporary will be returned. 


2. If the search fails, it creates a symbol node and makes a new 
declaration with temporary storage class. 


3. The new temporary node created witll be chained onto the list 
of temporary nodes. 


Entry: 


declare temporary 


Usage: 


declare declare temporary entry ( bit(36) aligned, 
fixed bin(31), fixed bin(15), ptr ) returns (ptr) ; 


return ptr = declare temporary ( data_type, precision, 
scale, length ); 


1. data type data type of the temporary. 
(input) 
2. precision precision of the temporary if the 


data type is arithmetic, otherwise 
the string length. (input) 


3. scale scale of the temporary if the data 
type is arithmetic. (input) 


4. length length expression of the string if 
the data type is a string. (input) 
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5. return ptr pointer 
representing 
(output) 


Programs that invoke this entry: 


alloc_semantics 
builtin 

convert 

decimal_op 

declare descriptor 
defined reference 
expand assign 

expand infix 

expand primitive 
function 

io data list semantics 
io_semantics 
lang_util_ 

operator semantics 
prepare symbol table 
simplify offset 


Internal Procedures: 


none 


External Variables: 


pll_stat_$temporary_ list 


Internal Static Variables: 


none 
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to 


the 


reference node 


the 


temporary. 


order number 


Programs Called: 


create symbol 
get_size 


Include Files used: 


language utility 
source id descriptor 
symbol 

boundary 

mask 

reference 

declare type 


Errors Diagnosed: 


none 
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NAME : declare label 


Function: 

1. Given a list of labels, this program will get the token 
representing each label. 

2. For each token, if a declaration has already been made, it 
will check if the attributes are consistent. For constant 
label arrays, it will update the high bound and the _ low 
bound. 


3. If no declaration has been made, a label node will be 
created. 


Entry: 


declare label 


Usage: 


declare declare label entry ( ptr, ptr, ptr, bit(3) 
aligned ); 


call declare label ( block ptr, statement_ptr, 
label_ptr, declare type ); 


1. block ptr pointer to the block node 
containing this label. (input) 

2. statement_ptr pointer to the statement node 
containing this label. (input) 

3. label _ptr pointer to the list node of labels. 
(input) 

4. declare type bits indicating whether the declare 


is by context, by implicating, or 
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by the compiler. 


Programs that invoke this entry: 


declare parse 
default_parse 

do_ parse 

if parse 

io statement_parse 
on_parse 

procedure parse 
statement_parse 


Internal Procedures: 


none 


External Variables: 


none 


Internal Static Variables: 


none 


Programs Called: 


create label 
parse error 
token_to_ binary 
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Include Files used: 


language utility 
source id descriptor 
block 

label 

list 

nodes 

reference 

token 


Errors Diagnosed: 


Error 31 
Error 54 
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NAME : declare descriptor 


Function: 
1. It creates a descriptor for the argument of a call. 


2. It determines if the descriptor has already been made for the 
argument. 


3. It creates a parameter descriptor pointer if necessary. 


Entry: 


declare descriptor 


Usage: 


declare declare descriptor entry ( ptr, ptr, ptr, ptr, 
bit(1) aligned ) returns (ptr) ; 


descriptor ptr = declare descriptor (| block ptr, 
statement_ptr, symbol ptr, locator qualifier, 
array descriptor bit ); 


1. block ptr pointer to the block node 
containing this declaration. 
(input) 

2. statement_ptr pointer to the statement node 
containing this operand. (input) 

3. symbol ptr pointer to the symbol node for 
which the descriptor is to be made. 
(input) 

4. locator qualifier locator qualifier expression for 


this operand. (input) 
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5. array descriptor bit bit indicating if an array 
descriptor is required. (input) 


6. descriptor ptr pointer to the descriptor created 
by this program. (output) 


Programs that invoke this entry: 


builtin 

declare 

declare structure 
function 

io semantics 
lang_util_ 


Entry: 


declare descriptor$ctl 


This special entry point is used to make assignments to 
controlled descriptors at allocation time. 


Usage: 


declare declare descriptor$ctl entry ( ptr, ptr, ptr, 
ptr, bit(1) aligned ) returns (ptr) ; 


descriptor ptr = declare descriptor$ctl ( block ptr, 
statement_ptr, symbol _ ptr, locator qualifier, 
array descriptor bit ); 


1. block ptr pointer to the block node 
containing this declaration. 
(input) 

2. statement_ptr pointer to the statement node 


containing this operand. (input) 
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3. symbol ptr pointer to the symbol node for 
which the descriptor is to be made. 
(input) 


4. locator qualifier locator qualifier expression for 
this operand. (input) 


5. array descriptor bit bit indicating if an array 
descriptor is required. (input) 


6. descriptor ptr pointer to the descriptor created 
by this program. (output) 


Programs that invoke this entry: 


alloc semantics 
lang _util_ 


Entry: 


declare descriptor$param 


This entry point is used to indicate that all the 
extents and bounds have already been computed by get size. 


Usage: 


declare declare descriptor$param entry ( ptr, ptr, ptr, 
ptr, bit(1) aligned ) returns (ptr) ; 


descriptor ptr = declare descriptor$param ( block ptr, 
statement ptr, symbol ptr, locator qualifier, 
array descriptor bit ); 


1. block ptr pointer to the block node 
containing this declaration. 
(input) 
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2. statement_ptr pointer to the statement node 
containing this operand. (input) 


3. symbol ptr pointer to the symbol node for 
which the descriptor is to be made. 
(input) 

4. locator qualifier locator qualifier expression for 


this operand. (input) 


5. array descriptor bit bit indicating if an array 
descriptor is required. (input) 


6. descriptor ptr pointer to the descriptor created 
by this program. (output) 


Programs that invoke this entry: 


declare_ 
declare structure 
lang_util_ 


Internal Procedures: 


assignf 
an internal procedure to create a statement 
for the assignment to the descriptor. 

assignm 
an internal procedure to create a statement 
for generating multiplier assignments to 
controlled descriptors. 

builder 
an internal procedure to build a descriptor 
from the symbol node. 

copy 


an internal procedure to call copy expression 
for a reference node if the reference node 
has offset expression, length expression, or 
qualifier expression. 
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set_star 
an internal 


External Variables: 


pll_stat_$util_abort 


Internal Static Variables: 


none 


Programs Called: 


copy_expression 

create operator 

create reference 

create statement 

create statement$prologue 
create symbol 

declare _constant$desc 
declare _constant$integer 
declare_pointer 

declare temporary 
expression semantics 
refer_extent 
token_to_binary 


Include Files used: 


semant 

language utility 
source id descriptor 
semantic bits 

symbol 

array 

reference 
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procedure to 
star_extents bit upward. 


propagate the 


order number 


statement 
block 
operator 
statement_types 
op_codes 
system 
declare type 
boundary 
nodes 

token 
token_types 


Errors Diagnosed: 


Error 28 
Error 29 
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NAME : declare picture 


Function: 


1. It calls picture _info_ to ascertain that the picture string 


is valid. 


2. It fills in the attributes of the picture as determined by 


picture info . 


3. It declares the picture constant, and = puts it 
symbol.general. 


Entry: 


declare picture 


Usage: 


declare declare picture entry ( char(*) aligned, ptr, 


fixed bin(15) ); 


call declare picture ( picture string, symbol _ ptr, 


error code ); 


1. picture string character string representing the 
picture. (input) 

2. symbol ptr pointer to the symbol node with the 
picture attribute. (input) 

3.  error_code error number returned 
picture _info_. (output) 


Programs that invoke this entry: 
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format_list_parse 
get_size 
lang_util_ 


Internal Procedures: 


none 


External Variables: 


none 


Internal Static Variables: 


none 


Programs Called: 


declare constant$bit 
picture info_ 


Include Files used: 


language utility 
source id descriptor 
picutre constant 
picutre image 
picutre_ types 
reference 

symbol 
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Errors Diagnosed: 


none 
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NAME : declare constant 


Function: 
1. It computes the boundary requirement and the bit size needed 
to declare the constant. 


2. It searches throught the chain of constants to find a 
constant with the same value. 


3. It creates a new symbol node to represent the value if no 
other constant has the same value. 


4. If another constant value can be found but with different 
attributes, then an equivalence declaration will be made. 


5. The new constant will be linked to the constant chain. 
Entry: 


declare constant 


Usage: 


declare declare constant entry ( bit(*) aligned, 
bit(36) aligned, fixed bin(31), fixed bin(15) ) returns (ptr) ; 


return ptr 
precision, scale ); 


declare constant ( value, data type, 


1. value value of the constant to be 
declared. (input) 


2. data type data type of the constant. (input) 
3. precision precision of the constant if the 


data type is arithmetic, otherwise 
the string length. (input) 
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4. scale scale of the constant if the data 
type is fixed. (input) 


5. return ptr pointer to the reference node 


representing the constant declared 
by this program. (output) 


Programs that invoke this entry: 


builtin 

convert 

declare constant 
io semantics 

lang _util_ 
operator semantics 


Entry: 


declare _constant$bit 


This entry is used to declare a bit string constant. 


Usage: 


declare declare constant$bit entry ( bit(*) aligned ) 
returns (ptr) ; 


return_ptr = declare constant$bit ( bit string ); 


1. bit string bit string value of the constant to 
be declared. (input) 


2. return_ptr pointer to the reference node 


representing the bit constant 
declared by this program. (output) 
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Programs that invoke this entry: 


builtin 

declare picture 
expand initial 
io_semantics 
lang _util_ 


Entry: 


declare _constant$char 


This entry is used to declare a character’ string 
constant. 


Usage: 


declare declare constant$char entry ( char(*) aligned ) 
returns (ptr) ; 


return_ptr = declare constant$char ( char_string ); 
1. char_string char string value of the constant 
to be declared. (input) 
2. return _ptr pointer to the reference node 


representing the character constant 
declared by this program. (output) 


Programs that invoke this entry: 


builtin 
declare 

expand initial 
lang _util_ 


DRAFT: SUBJECT TO CHANGE 8-361 order number 


Entry: 
declare _constant$desc 


This entry is used to declare a constant descriptor. 


Usage: 


declare declare constant$desc entry ( bit(*) aligned ) 
returns (ptr) ; 


return_ptr = declare constant$desc ( desc bit string ); 


1. desc bit string bit string value of the descriptor 
constant to be declared. (input) 

2. return _ptr pointer to the reference node 
representing the descriptor 
constant declared by this program. 
(output) 


Programs that invoke this entry: 


declare descriptor 
lang _util_ 


Entry: 


declare _constant$integer 


This entry is used to declare a fixed binary constant. 
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Usage: 


declare declare constant$integer entry ( fixed bin(31) 


) returns (ptr) ; 


return_ptr = declare constant$integer ( value ); 


1. value value of the integer constant to be 


declared. 


2. return_ptr pointer 
representing the 


reference node 
integer constant 


declared by this program. (output) 


Programs that invoke this entry: 


alloc semantics 
builtin 

declare 

declare descriptor 
declare structure 
defined reference 
expand_assign 

expand initial 
expand primitive 
function 

get_array_ size 
get_size 

io data list semantics 
io semantics 

lang _util_ 
offset_adder 
operator semantics 
prepare symbol table 
simplify offset 
subscripter 


Internal Procedures: 
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order number 


none 


External Variables: 


pll_stat_$constant_list 


Internal Static Variables: 


none 


Programs Called: 


create storage 
create symbol 
declare constant 


Include Files used: 


language utility 
source id descriptor 
symbol 

reference 

system 

boundary 

declare type 


Errors Diagnosed: 


none 
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CONVERSION PROGRAMS 


Conversion between data types is done by the _ following 
utility procedures. 
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NAME: convert 


Function: 


1. It gets the input type, input precision, and input scale. 


2. It gets the output type; and output precision and _ output 
scale if possible. 


3. It checks the validity of this attempted conversion. 


4. If the input and the output have identical data types, no 
conversion is done. 


5. If the input is not a constant, an assign operator will be 
created, so that conversion will be done at run time. 


6. If the input is a constant, conversion is done at compile 


time. 
Entry: 
convert 
Usage: 
declare convert entry ( ptr, bit(36) aligned ) returns 
(ptr) ; 
return_ptr = convert ( input_tree, target _type ); 
1. input_tree operand to be converted by this 
program. (input) 
2. target _type data type to which the operand is 


to be converted. (input) 
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3. return_ptr pointer to the result returned by 
this program. (output) 


Programs that invoke this entry: 


builtin 

defined reference 
expand assign 
expression semantics 
io semantics 

lang _util_ 

operator semantics 
semantic translator 


Entry: 


convert$from builtin 


This entry is used to suppress warning diagnostics that 
may normally be given, because the user does an explicit 
conversion using a builtin function. 


Usage: 


declare convert$from_ builtin entry ( ptr, bit (36) 
aligned ) returns (ptr) ; 


return ptr =  convert$from builtin ( input_tree, 
target_type ); 


1. input_tree operand to be converted by this 
program. (input) 


2. target _type data type to which the operand is 
to be converted. (input) 
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3. return_ptr pointer to the result returned by 
this program. (output) 


Programs that invoke this entry: 


builtin 
lang_util_ 


Entry: 


convert$to_ integer 


This entry is used to convert an operand to a fixed 
binary integer value with no scale factors. 


Usage: 


declare convert$to integer entry ( ptr, bit(36) aligned 
) returns (ptr) ; 


return ptr =  convert$to_ integer ( input_tree, 
target _type ); 


1. input _tree operand to be converted by this 
program. (input) 


2. target_type data type to which the operand is 
to be converted. (input) 


3. return_ptr pointer to the result returned by 
this program. (output) 


Programs that invoke this entry: 
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builtin 

expression semantics 
lang _util_ 

simplify offset 
subscripter 


Entry: 


convert$to_ target 


This entry is used to convert an operand to the data 
type, precision, scale or length specified by a_ target 
declaration. 


Usage: 


declare convert$to target entry ( ptr, ptr ) returns 
(ptr) ; 


return ptr = convert$to_ target ( input_tree, 
target_reference ); 


1. input_tree operand to be converted by this 
program. (input) 


2. target_reference pointer to the target reference 
node. (input) 


3. return ptr pointer to the result returned by 
this program. (output) 


Programs that invoke this entry: 


builtin 

expression semantics 
io data list semantics 
io semantics 
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lang_util_ 
operator semantics 


Entry: 


convert$to target fb 


This entry is used to suppress warning diagnostics that 
May normally be given when an operand is converted to the data 
type, precision, scale or length specified by the’ target 
declaration because the user does an explicit conversion using a 
builtin function. 


Usage: 


declare convert$to target_fb entry ( ptr, ptr ) returns 
(ptr) ; 


return ptr 
target_reference ); 


convert$to target _fb ( input_tree, 


1. input_tree operand to be converted by this 
program. (input) 


2. target_reference pointer to the target reference 
node. (input) 


3. return _ptr pointer to the result returned by 
this program. (output) 


Programs that invoke this entry: 


builtin 
lang _util_ 


DRAFT: SUBJECT TO CHANGE 8-370 order number 


Entry: 


convert$validate 


This entry is used to find out whether two sides of an 
assign operator is compatible. 


Usage: 

declare convert$validate entry ( ptr, ptr ) returns 
(ptr) ; 

return_ptr = convert$validate ( input_tree, 
target_reference ); 
1. input _tree operand to be converted by this 


program. (input) 


2. target_reference pointer to the target reference 
node. (input) 


3. return _ptr pointer to the result returned by 
this program. (output) 


Programs that invoke this entry: 


lang _util_ 
operator semantics 


Internal Procedures: 


ceil 
an internal procedure to perform the ceiling 
function. 
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desc_type 


an internal procedure 


type and precision 
code. 


get_target_size 


an internal procedure to compute 


convert the data 
a descriptor type 


precision, scale and length, when the input 


type, input precision, 


output type is known. 


print 


an internal procedure to 
message program’ pll stat $util_abort 


pll_stat_$util_error. 


External Variables: 


pll_stat_$util_abort 
pll_stat_$util_error 


Internal Static Variables: 


none 


Programs Called: 


assign_ 
char_to_numeric_ 
create operator 
create token 
declare constant 
declare temporary 
share expression 


Include Files used: 


DRAFT: SUBJECT TO CHANGE 8-372 


call the 


the output 
length and 
error 


or 


order number 


language utility 
source id descriptor 
declare type 
desc dcls 
desc_types 

mask 

nodes 

op_ codes 
operator 
reference 

symbol 

system 

token 
token_types 


Errors Diagnosed: 


Error 223 
Error 224 
Error 225 
Error 226 
Error 227 
Error 228 
Error 229 
Error 230 
Error 231 
Error 232 
Error 233 
Error 234 
Error 235 
Error 236 
Error 246 
Error 248 
Error 249 
Error 250 
Error 251 
Error 252 
Error 253 
Error 443 
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NAME: bindec 


Function: 


1. It converts a fixed binary number to a fixed decimal number. 


Entry: 


bindec 


Usage: 


declare bindec entry ( fixed bin ) returns ( char(12) 
aligned ); 


character result = bindec ( binary number ); 


1. binary number binary number to be converted. 
(input) 
2. character_result decimal result expressed in 


characters. (output) 


Programs that invoke this entry: 


display pll_map 
display pll_ text 
evaluate 
lang_util_ 

lex 

pll_print 

v2pl1 
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Entry: 


bindec$vs 


This entry is used to return a varying character string 
instead of a nonvarying character string. 


Usage: 


declare bindec$vs entry ( fixed bin ) returns ( 
char(12) varying ); 


character_result = bindec$vs ( binary number ); 


1. binary_number binary number to be converted. 
(input) 
2.  character_result decimal result expressed in 


characters. (output) 


Programs that invoke this entry: 


cg error 
create identifier 
decode node id 
descriptor parse 
display pll_text 
display text 
expand primitive 
lang _util_ 

lex 

on_ parse 
pll_error_ print 
prepare symbol _map_ 


Internal Procedures: 
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none 


External Variables: 


none 


Internal Static Variables: 


none 


Programs Called: 


none 
Include Files used: 
eis bits 


eis micro ops 


Errors Diagnosed: 


none 
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NAME: binoct 


Function: 


1. It converts a bit string to an octal string. 


Entry: 


binoct 


Usage: 


declare binoct entry ( bit(36) aligned ) returns ( 
char(12) aligned ); 


character result = binoct ( bit string ); 


1. bit string bit string to be converted. 
(input) 
2. character_result octal result expressed in 


characters. (output) 


Programs that invoke this entry: 


display pll_map 
display text 
lang _util_ 

pll_ symbol print 


Internal Procedures: 
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none 


External Variables: 


none 


Internal Static Variables: 


none 


Programs Called: 


none 


Include Files used: 


none 


Errors Diagnosed: 


none 
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NAME : binary to octal string 


Function: 


1. It converts a fixed binary constant into a octal string. 


Entry: 


binary to octal string 


Usage: 


declare binary _to octal_string entry ( fixed bin, 
char(12) aligned ); 


call binary to octal string ( integer, octal string ); 
1. integer fixed binary constant to- be 


converted. (input) 


2. octal_string character string representation of 
the octal value. (output) 


Programs that invoke this entry: 


none 


Entry: 


binary to octal_var_ string 
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This entry returns a varying octal string instead of a 


nonvarying octal string. 


Usage: 


declare binary to octal_var_ string entry ( 


char(12) varying ); 


call binary _to octal _var_ string 


octal_var_ string ); 


fixed bin, 


integer, 


1. integer fixed constant to be 
convertd. 
2. octal_string character string representation of 


the octal value. 


Programs that invoke this entry: 


pll_error_print 


Internal Procedures: 


none 


External Variables: 


none 


Internal Static Variables: 
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(output) 


order number 


none 


Programs Called: 


none 


Include Files used: 


none 


Errors Diagnosed: 


none 
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NAME: decbin 


Function: 


1. It converts a character string representing a signed or 
unsigned decimal constant to a fixed binary value. 


Entry: 


decbin 


Usage: 


declare decbin entry (  char(*) aligned ) returns ( 
fixed bin ); 


value = decbin ( decimal string ); 


1. decimal string character string representing a 
signed or unsigned decimal 
constant. (input) 

2. value value returned by this program. 
(output) 


Programs that invoke this entry: 
defined reference 


lang _util_ 


Internal Procedures: 
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none 


External Variables: 


none 


Internal Static Variables: 


none 


Programs Called: 


none 


Include Files used: 


none 


Errors Diagnosed: 


none 
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NAME: token_to binary 


Function: 


1. It gets the value of a constant token node. 


declare token_to binary entry ( ptr ) returns ( fixed 


converted. 


Entry: 
token_to_binary 
Usage: 
bin ); 
value = token_to binary ( token ptr ); 
1. token ptr pointer to the token 
2. value value 


Programs that invoke this entry: 


attribute parse 
declare descriptor 
declare label 
declare_parse 

defined reference 
descriptor parse 
evaluate 

expand initial 
get_array_ size 
initialize int static 
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node to be 


returned by this program. 
(output) 


order number 


lang _util_ 
lex 
subscriptre 
validate 


Internal Procedures: 


none 


External Variables: 


none 


Internal Static Variables: 


none 


Programs Called: 


none 


Include Files used: 


none 


Errors Diagnosed: 


none 
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NODE DUPLICATION PROGRAMS 


The following procedures duplicates expressions or nodes so 
that the same expression or reference may be used or _ shared by 
different parts of the program. 
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NAME : copy expression 


Function: 


1. It duplicates a node and its components. 


Entry: 
copy expression 
Usage: 
declare copy expression entry ( ptr unaligned ) returns 
(ptr) ; 
return _ptr = copy_expression ( operand ptr ); 
1. operand ptr pointer operand to be 
duplicated. 
2.  return_ptr pointer returned by this program. 
(output) 


Programs that invoke this entry: 


alloc semantics 
builtin 

copy expression 
declare 

declare descriptor 
declare structure 
defined reference 
do_ semantics 
expand_assign 
expand initial 
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expand primitive 
expression semantics 
fill_refer 

function 

generic selector 
get_array_ size 

io semantics 

lang _util_ 

merge attributes 
operator semantics 
optimizer 

prepare symbol table 
refer_extent 

share expression 
simplify offset 
subscripter 


Entry: 


copy_sons 


This entry is used to duplicate all the symbol nodes of 
the members of a structure. 


Usage: 
declare copy sons entry ( ptr, ptr ); 
call copy_sons ( father ptr, stepfather ptr ); 
1. father ptr pointer to the symbol node to be 
duplicated. (input) 
2. stepfather ptr pointer to the new symbol node. 


(output) 


Programs that invoke this entry: 
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context_processor 
lang_util_ 


Internal Procedures: 


copy symbol 
an internal p 
node, and to du 
symbol node. 


External Variables: 


pll_stat_$util_abort 


Internal Static Variables: 


previous pointer set 
symbol.next wh 


duplicated. 


Programs Called: 


copy_expression 
create array 
create bound 
create list 
create operator 
create reference 
create symbol 


Include Files used: 
language _ utility 


source id descriptor 
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rocedure to create a symbol 
plicate all the fields in the 


the 
node 


remember 
symbol 


to 
en 


original 


a is to be 


order number 


array 
symbol 
declare type 
list 

nodes 
operator 

op codes 
reference 


Errors Diagnosed: 


Error 32 
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NAME: share_expression 


Function: 


1. It determines whether a reference node or an operator node 
can be shared, and increments the reference count. 


2. It calls copy expression if these nodes are not sharable. 


Entry: 
share_expression 

Usage: 
declare share expression entry ( ptr ) returns (ptr) ; 
return ptr = share expression ( operand ptr ); 

1. operand ptr pointer to the operand to be 

shared. (input) 
2. return _ptr pointer returned by this program. 


(output) 


Programs that invoke this entry: 


alloc semantics 
builtin 

call_op 

convert 

do semantics 
expand_infix 

expand primitive 
expression semantics 
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function 

io semantics 

lang _util_ 
operator semantics 
simplify offset 
string _temp 


Internal Procedures: 


none 


External Variables: 


none 


Internal Static Variables: 


none 


Programs Called: 


copy_expression 
create reference 


Include Files used: 


language utility 
source id descriptor 
nodes 

operator 

reference 

symbol 
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Errors Diagnosed: 


none 


DRAFT: SUBJECT TO CHANGE 8-393 order number 


ERROR DIAGNOSTIC PROGRAMS 


The following procedures are used to print the error 
messages either on the user's console or in the program listing. 
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NAME : parse error 


Function: 


1. It calls the error message program error. 


Entry: 
parse error 

Usage: 
declare parse error entry ( fixed bin(15), ptr ); 
call parse error ( error_number, error ptr ); 

1. error _number error number. (input) 

2.  error_ptr pointer to the node exhibiting 


error. (input) 


Programs that invoke this entry: 


data _list_parse 
declare label 
declare parse 
default_parse 
descriptor parse 
do parse 
format_list_parse 
if_parse 
io_statement_parse 
lang _util_ 

on_ parse 

parse 


the 
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procedure parse 
process entry 
reserve 
statement_parse 
statement_type 


Entry: 


parse error$no_text 


This entry is called when the error is caused not as a 
result of processing the statements in the block. 


Usage: 

declare parse error$no text entry ( fixed bin(15), ptr 
); 

call parse error$no text ( error_number, error ptr ); 
1. error_number error number. (input) 
2.  error_ptr pointer to the node exhibiting the 


error. (input) 


Programs that invoke this entry: 


none 


Internal Procedures: 


none 
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External Variables: 


pll_stat_$cur_statement 
pll_stat_$source seg 
pll_stat_$st_length 
pll_stat_$st_start 
pll_stat_$statement_id 
tree $ 


Internal Static Variables: 


none 


Programs Called: 


error_ 


Include Files used: 


source id 

language utility 
source id descriptor 
token_list 

statement 


Errors Diagnosed: 


none 
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NAME : pll_error_ print 


Function: 


1. It gets the error message from the error message segment. 


2. It constructs the file number, line number and statement 
number, and the statement that causes the error. 


3. It prints the complete message on the user's console. 


Entry: 


pll_error_print$write out 


Usage: 


declare pll_error_print$write out entry ( fixed 
bin(15), 1 unaligned, 2 bit(8), 2 bit(14), 2 bit(5), ptr, fixed 
bin(11), fixed bin(31), fixed bin(31), fixed bin(15) ); 


call pll_error_print$write out ( error_number, 
statement_id, token ptr, source seg, source start, source length, 
source line ); 


1. error_number error number. (input) 
2. statement_id a substructure containing the file 


number, line number, and statement 
number where the error occurred. 


(input) 

3. token ptr pointer to the identifier causing 
the error. (input) 

4. source seg pointer to the source segment. 
(input) 
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5. source start index showing the start of the 


statement causing the error. 
(input) 
6. source length length of the statement causing the 


error. (input) 


7. source line not being used. 


Programs that invoke this entry: 


error_ 


Entry: 


pll_error_print$listing_ segment 


This entry is used to dump the error message on the listing 
segment rather than the user's console. 


Usage: 


declare pll_error_print$listing segment entry ( fixed 
bin(15), 1 unaligned, 2 bit(8), 2 bit(14), 2 bit(5), ptr ); 


call pll_error_print$listing segment ( error_number, 
statement_id, token ptr ); 


1. error_number error number. (input) 

2. statement_id a substructure containing the file 
number, line number, and statement 
number where the error’ occurred. 


(input) 


3. token ptr pointer to the identifier causing 
the error. (input) 
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Programs that invoke this entry: 


error_ 


Internal Procedures: 


next_string 


an internal procedure to get the error 
message from the error message segment. 


quote_token 


an internal procedure to replace the "$" in 
the error message text with the corresponding 
identifier string. 


External Variables: 


cg static $debug 
pll_stat_$abort_label 
pll_stat_$brief error mode 
pll_stat_$err_stm 
pll_stat_$error_memory 
pll_stat_$error_messages 
pll_stat_$error width 
pll_stat_$greatest_ severity 
pll_stat_$last_severity 
pll_stat_$last_statement_id 
pll_stat_$severity plateau 
pll_stat_$source list ptr 
tree $ 


Internal Static Variables: 


none 


Programs Called: 
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binary _to_octal_var_ string 
bindec$vs 

decode source id 

ios $write ptr 
pll_print$varying 
pll_print$varying nl 


Include Files used: 


language utility 
source id descriptor 
token 

token_types 

token list 

source list 
source id 


Errors Diagnosed: 


none 
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NAME: error 


Function: 


1. It calls the error message program error. 


statement node 


(input) 


Entry: 

error 
Usage: 

declare error entry ( fixed bin(15), ptr, ptr ); 

call error ( error number, statement_ptr, token ptr ); 
1. error_number error number. 
2. statement_ptr pointer 

containing this error. 

3. token ptr pointer to the token 


this error. 


Programs that invoke this entry: 


adjust_ref_count 
aq_man 

assign op 

assign storage 

cg error 

compile statement 
eval_exp 

expmac 
gen_pll_symbol 
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order number 


jump_op 

lang _util_ 

ma 

mst 

pll_signal_ catcher 
prepare operand 
prepare symbol table 
semantic translator 
stack_temp 

xr_man 


Entry: 


error$omit_text 


This entry calls error _$no text instead of error. 


Usage: 


declare error$omit_text entry ( fixed bin(15), ptr, ptr 


call errorg$omit_text (  error_number, statement ptr, 
token ptr ); 


1. error_number error number. (input) 


2. statement_ptr pointer to the statement node 
containing this error. (input) 


3. token ptr pointer to the token node _ causing 
this error. (input) 


Programs that invoke this entry: 


none 
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Internal Procedures: 


none 


External Variables: 


pll_stat_$err_stm 


Internal Static Variables: 


none 


Programs Called: 


error_ 
error _$no_ text 


Include Files used: 


language utility 
source id descriptor 
source id 

statement 

source list 


Errors Diagnosed: 


none 
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NAME: error_ 


Function: 


1. This is an error message buffering program. 

2. If the listing option is on in the compilation, up to 100 
error messages and related information are saved in the 
internal static buffer error info. 


3. It then calls pll_error print$write out to print the error 
message on the user's console. 


Entry: 


error_ 


Usage: 


declare error entry ( fixed bin(15), 1 unaligned, 2 
bit(8), 2 bit(14), 2 bit(5), ptr, fixed bin(8), fixed bin(23), 
fixed bin(11), fixed bin(31) ); 


call error _ (  error_number, statement_id, token ptr, 
source seg, source start, source length, source line ); 


1. error_number error number. (input) 
2. statement_id a substructure containing the file 


number, line number, and statement 
number where the error occurred. 


(input) 

3. token ptr pointer to the identifier causing 
the error. (input) 

4. source seg pointer to the source segment. 
(input) 
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5. source start index showing the start of the 


statement causing the error. 
(input) 
6. source length length of the statement causing the 


error. (input) 


7. source line not being used. 


Programs that invoke this entry: 


error 
lang_util_ 

lex 

parse error 
semantic translator 


Entry: 


error _$no_ text 


This entry is called when it is not 


the specific statement causing the error. 


Usage: 


declare error $no text’ entry 


possible to determine 


(| fixed bin(15), 1 


unaligned, 2 bit(8), 2 bit(14), 2 bit(5), ptr); 


call error _$no text entry ( error_number, statement_id, 


token ptr ); 

1. error_number error number. (input) 

2. statement_id a substructure containing the file 
number, line number, and statement 
number where the error. occurred. 
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(input) 


3. token ptr pointer to the identifier causing 
the error. (input) 


Programs that invoke this entry: 


context_processor 
error 
initialize int static 
lang _util_ 

lex 

semantic translator 
validate 


Entry: 


error _$finish 


This entry is called to sort the error messages in the 
buffer by statement number, and then dump them onto the listing 
segment. 


Usage: 


declare error $finish entry; 


call error _$finish; 


Programs that invoke this entry: 


lang_util_ 
v2pl1 
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Entry: 


error $initialize error 


This entry is used to initialize the internal static running 
index ei. 


Usage: 


declare error $initialize error entry; 


call error $initialize error; 


Programs that invoke this entry: 


lang _util_ 
parse 


Internal Procedures: 


none 
External Variables: 
pll_stat_$error width 


pll_stat_$listing_ on 


Internal Static Variables: 


ei running index into the error info array. 
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error_info array of structure serving as the buffer for 
up to 100 error messages diagnosed by the 


program. 

error_number number of an individual error. 

file number file number of an individual error. 

Line number line number of an individual error. 
statement_id substructure of error info. 

statement_number statement number of an individual error. 
token_pt pointer to record the identifier causing an 


individual error. 


Programs Called: 


pll_error_print$listing segment 
pll_error_print$write out 
pll_print$non_varying nl 


Include Files used: 


language utility 
source id descriptor 
nodes 

operator 

op_ codes 

reference 

symbol 

source id 


Errors Diagnosed: 


none 
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NAME: decode node _ id 


Function: 


1. It decodes the source id of a node into its 


component parts 


of file number, line number, and statement number. 


Entry: 


decode node id 


Usage: 


declare decode node id entry ( ptr, bit(1) aligned ) 


returns ( char(120) varying ); 


source id string = decode node id 
capital bit ); 


( node ptr, 


1. node ptr pointer to a node whose source _id 
is to be decoded. (input) 
2. capital bit bit indicating whether to return 


upper case characters. (input) 


3.  source_id string character string returned by this 


program. (output) 


Programs that invoke this entry: 


compile statement 
lang _util_ 
optimizer 
pll_signal_ catcher 
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Entry: 


decode source _ id 


This entry supplies a 27-bit bitstring instead of a 
pointer to a node. 


Usage: 


declare decode source id entry ( 1 structure unaligned, 
2 bit(8), 2 bit(14), 2 bit(5), bit(1) aligned ) returns ( 
char(120) varying ); 


source id string = decode source id ( source id, 
capital bit ); 


1. source id source _id to be decoded. (input) 


2. Capital bit bit indicating whether to return 
upper case characters. (input) 


3. source id string character string returned by this 
program. (output) 


Programs that invoke this entry: 
lang_util_ 


pll_error_print 


Internal Procedures: 


none 
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External Variables: 


pll_stat_$source list ptr 


Internal Static Variables: 


none 


Programs Called: 


bindec$vs 


Include Files used: 


nodes 
source id 
source list 
token 


Errors Diagnosed: 


none 
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ENTRY VECTOR PROGRAMS 


The compiler is grouped and bound into four distinct 
segments in the Multics system. These bound segments are called 
bound parse_, bound semant_, bound lang _util_, and bound cg . 
Each of these may invoke procedures bound in the same segment or 
procedures in other bound segments. To facilitate cross-segment 
procedure invocation and to reduce the names appearing on a bound 
segment, each bound segment has a entry vector program and a 
transfer vector program. The entry vector program introduces 
entry names in its own bound segment invoked by other segments; 
while the transfer vector introduces entry names on other bound 
segments invoked by some procedures in its own bound segment. 
All the entry vector programs and transfer vector programs are 
written in the assembly language ALM. 


Note: There is no entry vector program for bound parse because 
none of its components are invoked by procedures in the other 
bound segments. 
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NAME: v2pl1_semant_ 


Function: 


1. This is the entry vector program for 


bound _semant_. 


Entry: 


abort 

call_es 

error 

expression semantics 
Lookup 

prepare symbol table 
semantic translator 
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NAME: lang_util_ 


Function: 


1. This is the entry vector 
bound lang _util_. 


Entry: 


pll_signal_catcher 
generate definition 
end_ symbol 

beg symbol 
init_linkage 
gen_pll_linkage 
compile link 
assign storage 
compile formats 
mst 

by size 
display pll_ text 
display pll_ map 
merge attributes 
unaligned nl 
for_lex 

string ptr_nl 
string ptr 
non_varying nl 
non_ varying 
varying nl 
varying 
initialize error 
finish 

no text 

error, 

error 

decode source id 
decode node id 
parse error 
decbin 

share expression 
to target 

to target fb 
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to_integer 
validate 

from builtin 
convert 
rename_parse 
read _ lib 

clear 

declare lib 
copy_sons 

copy expression 
compare expression 
optimizer 

declare temporary 
declare_pointer 
declare picture 
declare integer 
param 

ctl 

declare descriptor 
char 

bit 

desc 

integer 

declare constant 
refer_extent 
get_size 

free node 
get_free 

truncate 

init 

pll_get 

prologue 

create storage 
create statement 
create reference 
create operator 
create list 
token_to_binary 
vs 

binoct 

bindec 

create identifier 
create token 
create symbol 
create label 
create default 
create cross reference 
create context 
create bound 
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create block 
create array 
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TRANSFER VECTOR PROGRAMS 


Please refer to the previous subsection “Entry Vector 
Programs" for the description of transfer vector programs. 
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NAME : parse xfer vector 


Function: 


1. This is the transfer vector program for 


bound parse . 


Entry: 


pll_signal_catcher 
string ptr_nl 
merge attributes 
prepare symbol table 
truncate 

init 
token_to_binary 
semantic translator 
rename_parse 
declare picture 
declare lib 

clear 

varying nl 
non_varying nl 
non_varying 
for_lex 

pll_ get 

parse error 
optimizer 
free_node 

no text 

initialize error 
finish 

error_ 

create token 
create symbol 
create statement 
create reference 
create operator 
create list 

create label 
create default 
create cross reference 
create context 
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create bound 
create block 
create array 
copy_expression 
vs 

binoct 

bindec 
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NAME : semant_xfer_ vector 


Function: 


1. This is the transfer vector program for 


bound _semant_. 


Entry: 


error 
create block 
token_to_binary 
share_expression 
declare lib 
refer_extent 
merge attributes 
get_size 

free node 

no text 

error, 

declare temporary 
declare_pointer 
declare integer 
param 

ctl 

declare descriptor 
integer 

char 

bit 

declare constant 
decbin 

create token 
create symbol 
prologue 

create statement 
create reference 
create operator 
create list 
create label 
create cross reference 
create bound 
create array 
copy_sons 
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copy_expression 
validate 
to_target_fb 

to target 
to_integer 

from builtin 
convert 

compare expression 
VS 
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NAME : util_xfer_vector 


Function: 


1. This is the transfer vector program 
bound lang util . 


Entry: 


cg error 
Lv 

ev 

prepare operand 
call_es 

Lookup 

expression semantics 
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DATA SEGMENTS 


The pll_stat_ data segment contains the external static 
variables used by all phases of the compiler. 
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NAME : pll_stat_ 


LHS 


abort_label 


apostrophe mode 


brief_error mode 


card input 


char_pos 


check_bounds 


A pointer to the symbol node of the left hand 
side of an assignment statement currently 
being processed by the semantic translator. 
This pointer is set by expression semantics, 
and reset by semantic translator. This 
pointer is used by expand infix and 
expression semantics to decide whether an 
aggregate expression may be simplified. 


This label field is set by the procedure 
semantic translator. Transferring to this 
label results in unwinding the compiler, 
printing an error message informing the user 
that the compilation has been aborted, and 
executing the cleanup handler. 


not used. 


This bit(1) field is set to "1"b if the brief 
option is specified. This field controls the 
amount of text to be printed when an error 
occurred. 


not used. 


This field contains an approximate character 
count for the current listing segment. It is 
approximate because it is always one larger 
than the actual character count. If the 
listing file is a multisegment file, this 
field only contains the character count of 
the active component. 


not used. 


compiler _created_ index 


compiler_name 


Initialized to 0, this is a count of the 
compiler generated symbol names. The names 
are of the form "cp.n", where n is the value 
of compiler created index. 


This character field is the compiler name to 
be stored in the object segment by the code 
generator. The name of this compiler is 
"pl" : 
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condition index 


constant_list 


convert_len 
convert_ptr 
convert_switch 
cur_block 
cur_level 


cur_statement 


debug semant 


dummy_block 


eis mode 


equivalence base 


err stm 


error flag 


error_memory 


error messages 
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Initialized to 0, this is a count of the 
compiler generated condition na,mes. The 
names are of the form "condition.n", where n 
is the value of condition index. 


The root of the chain of all 
created by the compiler. 


constants 


not used. 
not used. 
not used. 
not used. 
not used. 


A pointer to the statement node currently 
being processed by the semantic translator. 


This bit(1) field is set to "1"b if the 
debug semant option is specified. 
Initialized to a null pointer, this pointer 


is used by the code generator. 


This bit(1) field is used to indicate whether 
the extended instuction code is desired by 
this compilation. In the current Multics 
system, this bit is always on. 


not used. 


A pointer pointing to the statement node in 
which an error has been discovered. 


This bit(1) field is used to indicate whether 
an error has occurred in the processing of 
compiler generated statements for the return 
statement in a multiple-entried program. 


The procedure error _ remembers the first 100 
errors, so they can be sorted by line number 
before being placed in the listing segment. 


a pointer to the segment containing the text 
for all error messages. 


8-426 order number 


error_width 


The line length for the 1/0 stream 
user output. If user output does not have a 
line length, the value 120 is used. 


expl_continuation count 


format_list 


free ptr 


generate _symtab 


greatest_severity 


had_data_io 
hash_table 
hollerith_mode 


index 


last_severity 


last_source 
last_statement_id 


Line count 


List3_node 


List5 node 
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not used. 
not used. 


array of headers of free reuseable nodes 


saved in the allocation pool. 


This bit(1) field is set to "1"b if there is 
a "get/put data;" statement in the program. 


This field is initialized to 0 at the 
beginning of a compilation and will indicate 
the error level high water mark at the end of 
the compilation. In other words, the highest 
severity error recorded for this compilation. 


not used. 


The token node hash table. 


not used. 
A number indicating the current locater 
qualifier in the external static array 


pll_stat_$locator. 


A number indicating the severity of error 
encountered, used to set the had error bit in 
the procedure semantic translator$call_es. 

files used in this 


The number of include 


compilation. 

not used. 

At the end of a compilation this field is set 
to the number of newline characters in the 
source segment. 


not used. 


not used. 
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list_ptr 


listing_on 


locator 


max_list_size 
max_node type 
modetable 


multi_type 


no_quick_ blocks 


node_name 


node sizes 


node_uses 


ok_ list 


one 


optimize 


options 
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A pointer to the current listing segment. 


This bit(1) field is set to "1"b if a listing 
segment is to be produced. 


An array of pointers to keep track of the 
locator qualifiers occurring at different 
levels of an expression. 


This field is the max_seg size of the current 
listing segment. 


This indicates the number of different types 
of nodes used by the compiler. 


not used. 


This bit(1) indicates that the semantic 
translator is currently processing a return 
statement in a multiple-entried program. 


not used. 


An array of character(12) containing the 
names of different nodes used by the 
compiler. 


An array of numbers showing the sizes of 
different nodes used by the compiler. 


An array of counters, one for each node 
length. The appropriate counter is bumped 
whenever a node is created. The length of 
the operator is based on the number of words 
allocated for it. This information § is 
provided for metering purposes. 


The root of the chain of OK lists. One OK 
list is created for each "get data" 
statement. 


A pointer to the token "1", a decimal 


integer. 


This bit(1) field indicates whether an 
optimize option is used in the compilation. 


A character string representation of all 
options specified in the compilation. This 


order number 


pathname 
phase 


print_cp dcl 


profile length 


quick pt 


root 


seg name 


severity plateau 


source index 


source list _ptr 


source ptr 


source seg 


st_length 


character string will appear in the listing 
segment. 


The absolute pathname of the source segment. 
The current compilation phase. 


If the cpdcl option is specified, this field 
is set to "1"b. 


The number of words to be allocated to 
implement the profile feature of the 
compiler. This value will approximate the 
number of statements in the subprogram. 


A pointer to the bit array real_quick info in 
the procedure semantic translator. The bit 
array contains information on whether each 
block can be quick. 


A pointer to the root block node. 


The entryname of the source segment but 
without the final component ".pll1". 


This field is initially one but can be set by 
the user to any value from one to four. This 
field implements the severity option by 
specifying the minimum error level of error 
messages to be printed. 


A running index to the source segment 
currently working on by the procedure lex. 


A pointer to the array of — structures 
source list that contains information about 
the source segment and all the include files 
used in the compilation. 


A pointer to the source segment. 


An index used to indicate the source segment 
or include file currently working on by the 
procedure lex. 


Current length of the statement being 
compiled. It is updated every time another 
token is parsed. 
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st_start 


statement_id 


stop _id 


table 


temporary list 


tree _vec_ index 


unwind 


user_id 


util abort 


util_error 


Character offset of the beginning of the 
current statement relative to the base of the 
source segment. 


The line number, statement number, and file 
number of the current statement. 


If the debug semant option or debug cg option 
is used, this field is compared to 
pll_stat_$statement_id. If they are equal, 
then the procedure debug will be invoked. 


Set to "1"b if the table option is specified 
in the compilation. 


The root of the chain of the temporary nodes 
created during the compilation. 


This field specifies how many additional 
segments are being used by the compiler to 
accommodate all the nodes used for the 
internal representation of the program. Its 
value will be zero if only tree and 
xeq_ tree are being used. The value is 
maintained dynamically and reflects only the 
current storage requirements. 


A label variable set to a label constant in 
the procedure process entry. This label is 
used as the point of transfer in case an 
error occurs in the procedures declare parse 
or default_parse. 


The Person.Project.instance tag for the 
current compilation. 


An entry variable used by the utility 
procedures to unwind after a level 3 error. 
It is assigned the value 
semantic _translator$abort. Transferring to 
this label results in unwinding the compiler 
sufficiently to continue compilation. 


An entry variable used by the utility 
procedures to unwind after an error. It is 
assigned the value semantic _translator$error. 
No unwinding results from transferring to 
this label. 
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validate_proc A pointer to the symbol node of _ the 
validating procedure when the validate option 


is used in a _ procedure statement or entry 
statement. 
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OTHER MISCELLANEOUS PROGRAMS 


Some procedures deal with other miscellaneous functions, and 
do not fall into any category described earlier. 
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NAME : refer extent 


Function: 


It scans a reference node or an operator node to find a refer 
operator among some of its components. 


2. It replaces all the refer operators by the refer target, 

qualified with a proper locator qualifier. 

Entry: 

refer extent 
Usage: 
declare refer extent entry ( ptr, ptr ); 
call refer_extent ( expression tree, locator qualifier 

); 

1. expression tree pointer to the operator node or 
reference node _ to be processed by 
this program. (input/output) 

2. locator qualifier pointer to be used as the locator 


qualifier. (input) 


Programs that invoke this entry: 


alloc semantics 
declare descriptor 
expand_assign 
expand primitive 
io semantics 
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lang_util_ 
operator semantics 
refer_extent 


Internal Procedures: 


none 


External Variables: 


none 


Internal Static Variables: 


none 


Programs Called: 


copy_expression 
create reference 
refer_extent 


Include Files used: 


language utility 
source id descriptor 
nodes 

reference 

operator 

op_ codes 
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Errors Diagnosed: 


none 
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NAME : fill_refer 


Function: 
1. It scans a reference node or an operator node to find a refer 
operator among some of its components. 


2. It replaces all the refer operators by the refer target, 
qualified with a proper locator qualifier. 


3. It has an argument which indicates whether the _ locator 
qualifier needs be duplicated. 


Entry: 


fill_refer 


Usage: 


declare fill_refer entry ( ptr, ptr, bit(1) aligned ) 
returns (ptr) ; 


return_ptr = fill_refer ( expression tree, 
locator qualifier, copy switch ); 


1. expression tree pointer to the operator node or 
reference node _ to be processed by 
this program. (input) 


2. locator qualifier pointer to be used as the locator 
qualifier. (input) 

3. copy switch bit indicating whether 
copy_expression should be invoked. 
(input) 

4. return ptr pointer to the operator or 


reference node returned by this 
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program. (output) 


Programs that invoke this entry: 


builtin 
prepare symbol table 


Internal Procedures: 


none 


External Variables: 


none 


Internal Static Variables: 


none 


Programs Called: 


copy expression 
create reference 


Include Files used: 


language utility 
source id descriptor 
nodes 

reference 

operator 
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op_ codes 


Errors Diagnosed: 


none 
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NAME: check_star_ extents 


Function: 


1. It scans through all the arguments of a 


call for a_ length 


expression appearing in a position corresponding to a star 


extents parameter. 


2. It calls make_non quick if the search is successful. 


Entry: 
check_star_ extents 
Usage: 
declare check _star_extents entry ( ptr, ptr ); 
call check _star_extents ( symbol ptr, argument_list ); 
1. symbol ptr pointer to the symbol node of the 
entry. 
2.  argument_list list of arguments the entry. 
(input) 


Programs that invoke this entry: 
builtin 


function 


Internal Procedures: 
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none 


External Variables: 


none 


Internal Static Variables: 


none 


Programs Called: 


make_non_quick 


Include Files used: 


nodes 
block 
symbol 
reference 
operator 
list 


Errors Diagnosed: 


none 
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NAME : propagate bit 


Function: 


1. It turns on a specified bit in the symbol node. 


2. It also turns on the corresponding bit in the symbol node for 


all members of the structure. 


Entry: 
propagate bit 
Usage: 
declare propagate bit entry ( ptr, fixed bin(15) ); 
call propagate bit ( symbol_ptr, bit position ); 
1. symbol ptr pointer to the node whose 
attribute propagated. 
(input) 
2. bit position bit position of the attribute in 
the is to be 


propagated. 


Programs that invoke this entry: 


alloc semantics 
builtin 

defined reference 
expression semantics 
validate 
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Internal Procedures: 


propagate 
an internal procedure to turn on a_ specified 
bit throughout a structure. 


External Variables: 


none 


Internal Static Variables: 


none 


Programs Called: 


none 


Include Files used: 


symbol 


Errors Diagnosed: 


none 


Historical Background 


This edition of the Multics software materials and documentation 
is provided and donated to Massachusetts Institute of Technology 
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by Group BULL including BULL HN Information Systems Inc. asa 
contribution to computer science knowledge. This donation is 
made also to give evidence of the common contributions of 
Massachusetts Institute of Technology, Bell Laboratories, General 


Electric, Honeywell Information Systems Inc., Honeywell BULL 
Inc., Groupe BULL and BULL HN Information Systems Inc. to the 
development of this operating system. Multics development was 


initiated by Massachusetts Institute of Technology Project MAC 
(1963-1970), renamed the MIT Laboratory for Computer Science and 
Artificial Intelligence in the mid 1970s, under the leadership of 
Professor Fernando Jose Corbato. Users consider that Multics 
provided the best software architecture for managing computer 
hardware properly and for executing programs. Many subsequent 


operating systems incorporated Multics principles. Multics was 
distributed in 1975 to 2000 by Group Bull in Europe , and in the 
U.S. by Bull HN Information Systems Inc., as successor in 


interest by change in name only to Honeywell Bull Inc. and 
Honeywell Information Systems Inc. 


Permission to use, copy, modify, and distribute these programs 
and their documentation for any purpose and without fee is hereby 
granted,provided that the below copyright notice and historical 
background appear in all copies and that both the copyright 
notice and historical background and this permission notice 
appear in supporting documentation, and that the names of MIT, 
HIS, BULL or BULL HN _ not be used in advertising or publicity 
pertaining to distribution of the programs without specific prior 
written permission. 

Copyright 1972 by Massachusetts Institute of Technology and 
Honeywell Information Systems Inc. 

Copyright 2006 by BULL HN Information Systems Inc. 

Copyright 2006 by Bull SAS 

All Rights Reserved 
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